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TERMS AND CONDITIONS OF SALE AND LICENSE OF RADIO SHACK COMPUTER EQUIPMENT AND SOFTWARE 

PURCHASED FROM A RADIO SHACK COMPANY-OWNED COMPUTER CENTER, RETAIL STORE OR FROM A 

RADIO SHACK FRANCHISEE OR DEALER AT ITS AUTHORIZED LOCATION 

LIMITED WARRANTY 

I. CUSTOMER OBLIGATIONS 

A. CUSTOMER assumes full responsibility that this Radio Shack computer hardware purchased (the "Equipment"), and any copies of Radio 
Shack software included with the Equipment or licensed separately (the "Software") meets the specifications, capacity capabilities 
versatility, and other requirements of CUSTOMER. 

B. CUSTOMER assumes full responsibility for the condition and effectiveness of the operating environment in which the Equipment and Software 
are to function, and for its installation. 

II. RADIO SHACK LIMITED WARRANTIES AND CONDITIONS OF SALE 

A. For a period of ninety (90) calendar days from the date of the Radio Shack sales document received upon purchase of the Equipment, RADIO 
SHACK warrants to the original CUSTOMER that the Equipment and the medium upon which the Software is stored is free from manufacturing 
defects. THIS WARRANTY IS ONLY APPLICABLE TO PURCHASES OF RADIO SHACK EQUIPMENT BY THE ORIGINAL CUSTOMER FROM 
RADIO SHACK COMPANY-OWNED COMPUTER CENTERS, RETAIL STORES AND FROM RADIO SHACK FRANCHISEES AND DEALERS AT ITS 
AUTHORIZED LOCATION. The warranty is void if the Equipment's case or cabinet has been opened, or if the Equipment or Software has been 
subjected to improper or abnormal use. If a manufacturing defect is discovered during the stated warranty period, the defective Equipment 
must be returned to a Radio Shack Computer Center, a Radio Shack retail store, participating Radio Shack franchisee or Radio Shack dealer 
for repair, along with a copy of the sales document or lease agreement. The original CUSTOMER'S sole and exclusive remedy in the event of 
a defect is limited to the correction of the defect by repair, replacement, or refund of the purchase price, at RADIO SHACK'S election and sole 
expense. RADIO SHACK has no obligation to replace or repair expendable items. 

B. RADIO SHACK makes no warranty as to the design, capability, capacity, or suitability for use of the Software, except as provided in this 
paragraph. Software is licensed on an "AS IS" basis, without warranty. The original CUSTOMER'S exclusive remedy, in the event of a 
Software manufacturing defect, is its repair or replacement within thirty (30) calendar days of the date of the Radio Shack sales document 
received upon license of the Software The defective Software shall be returned to a Radio Shack Computer Center, a Radio Shack retail store 
participating Radio Shack franchisee or Radio Shack dealer along with the sales document. 

C. Except as provided herein no employee, agent, franchisee, dealer or other person is authorized to give any warranties of any nature on behalf 
of RADIO SHACK. 

D. Except as provided herein, RADIO SHACK MAKES NO WARRANTIES, INCLUDING WARRANTIES OF MERCHANTABILITY OR FITNESS FOR A 
PARTICULAR PURPOSE. 

E. Some states do not allow limitations on how long an implied warranty lasts, so the above limitation(s) may not apply to CUSTOMER 

III. LIMITATION OF LIABILITY 

A. EXCEPT AS PROVIDED HEREIN, RADIO SHACK SHALL HAVE NO LIABILITY OR RESPONSIBILITY TO CUSTOMER OR ANY OTHER PERSON 
OR ENTITY WITH RESPECT TO ANY LIABILITY, LOSS OR DAMAGE CAUSED OR ALLEGED TO BE CAUSED DIRECTLY OR INDIRECTLY BY 
"EQUIPMENT" OR "SOFTWARE" SOLD, LEASED, LICENSED OR FURNISHED BY RADIO SHACK, INCLUDING BUT NOT LIMITED TO ANY 
INTERRUPTION OF SERVICE, LOSS OF BUSINESS OR ANTICIPATORY PROFITS OR CONSEQUENTIAL DAMAGES RESULTING FROM THE 
USE OR OPERATION OF THE "EQUIPMENT" OR "SOFTWARE". IN NO EVENT SHALL RADIO SHACK BE LIABLE FOR LOSS OF PROFITS OR 
ANY INDIRECT, SPECIAL, OR CONSEQUENTIAL DAMAGES ARISING OUT OF ANY BREACH OF THIS WARRANTY OR IN ANY MANNER 
ARISING OUT OF OR CONNECTED WITH THE SALE, LEASE, LICENSE, USE OR ANTICIPATED USE OF THE "EQUIPMENT" OR "SOFTWARE" 

NOTWITHSTANDING THE ABOVE LIMITATIONS AND WARRANTIES, RADIO SHACK'S LIABILITY HEREUNDER FOR DAMAGES INCURRED BY 
CUSTOMER OR OTHERS SHALL NOT EXCEED THE AMOUNT PAID BY CUSTOMER FOR THE PARTICULAR "EQUIPMENT" OR "SOFTWARE" 
INVOLVED. 

B. RADIO SHACK shall not be liable for any damages caused by delay in delivering or furnishing Equipment and/or Software. 

C. No action arising out of any claimed breach of this Warranty or transactions under this Warranty may be brought more than two (2) years 
after the cause of action has accrued or more than four (4) years after the date of the Radio Shack sales document for the Equipment or 
Software, whichever first occurs. 

D. Some states do not allow the limitation or exclusion of incidental or consequential damages, so the above limitation(s) or exclusion(s) may 
not apply to CUSTOMER 

IV. RADIO SHACK SOFTWARE LICENSE 

RADIO SHACK grants to CUSTOMER a non-exclusive, paid-up license to use the RADIO SHACK Software on one computer subject to the followinq 
provisions: 

A. Except as otherwise provided in this Software License, applicable copyright laws shall apply to the Software. 

B. Title to the medium on which the Software is recorded (cassette and/or diskette) or stored (ROM) is transferred to CUSTOMER but not title to 
the Software 

C. CUSTOMER may use Software on one host computer and access that Software through one or more terminals if the Software permits this 
function. 

D. CUSTOMER shall not use, make, manufacture, or reproduce copies of Software except for use on one computer and as is specifically 
provided in this Software License. Customer is expressly prohibited from disassembling the Software. 

E. CUSTOMER is permitted to make additional copies of the Software only for backup or archival purposes or if additional copies are required in 
the operation of one computer with the Software, but only to the extent the Software allows a backup copy to be made However for 
TRSDOS Software, CUSTOMER is permitted to make a limited number of additional copies for CUSTOMER'S own use. 

F. CUSTOMER may resell or distribute unmodified copies of the Software provided CUSTOMER has purchased one copy of the Software for each 
one sold or distributed. The provisions of this Software License shall also be applicable to third parties receiving copies of the Software from 
CUSTOMER 

G. All copyright notices shall be retained on all copies of the Software 

V. APPLICABILITY OF WARRANTY 

A. The terms and conditions of this Warranty are applicable as between RADIO SHACK and CUSTOMER to either a sale of the Equipment and or 
Software License to CUSTOMER or to a transaction whereby RADIO SHACK sells or conveys such Equipment to a third party for lease to 
CUSTOMER. 

B. The limitations of liability and Warranty provisions herein shall inure to the benefit of RADIO SHACK, the author owner and/or licensor of the 
Software and any manufacturer of the Equipment sold by RADIO SHACK. 

VI. STATE LAW RIGHTS 

The warranties granted herein give the original CUSTOMER specific legal rights, and the original CUSTOMER may have other rights which vary 
from state to state. 
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Disk EDTASM Software: Copyright 1983, Microsoft. All 
Rights Reserved. Licensed to Tandy Corporation. 

Disk EDTASM Manual: Copyright 1983, Tandy Corporation. 
All Rights Reserved. 

Reproduction or use without express written permission from 
Tandy Corporation, of any portion of this manual is prohib- 
ited. While reasonable efforts have been taken in the prep- 
aration of this manual to assure its accuracy, Tandy 
Corporation assumes no liability resulting from any errors or 
omissions in this manual, or from the use of the information 
contained herein. 



To Our Customers . . . 



The heart of the Color Computer is a 6809E "proces- 
sor." It controls all other parts of the Color Computer. 

The processor understands only a code of Os and 1s, 
not at all intelligible to the human mind. This code is 
called "6809 machine code." 

When you run a BASIC program, a system called the 
"BASIC Interpreter" translates each statement, one at a 
time, into 6809 machine code. This is an easy way to 
program, but inefficient. 

The Disk EDTASM lets you program using an intelligible 
representation of 6809 machine code, called "assembly 
language," that talks directly to the processor. You then 
assemble the entire program into 6809 machine code 
before running it. 

Programming with the Disk EDTASM gives you these 
benefits: 

• You have direct and complete control of the Color 
Computer. You can use its features — such as high 
resolution graphics — in ways that are impossible with 
BASIC. 

• Your program runs faster. This is because it is already 
translated into 6809 machine code when you run it. 



To Use the Disk EDTASM 
You Need . . . 



A Color Computer Disk System that has at least 16K of 
RAM, preferably 32K. (A 16K System will leave you little 
room for programs.) 



The Disk EDTASM 
Contains: 



• EDTASM/BIN, a system for creating 6809 program*. 
EDTASM contains: 

An editor, for writing and editing 6809 assembly- 
language programs. 

An assembler, for assembling the programs into 
6809 machine code. 

ZBUG, for examining and debugging 6809 
machine-code programs. 

You must have 32K to run EDTASM. If you have 16K, 
run EDTASMOV (described next). 

• EDTASMOV/BIN, a memory-efficient version of 
EDTASM consisting of overlays. EDTASMOV con- 
tains the editor and assembler, but not ZBUG. 

• ZBUG/BIN, a stand-alone version of ZBUG, primarily 
for use with EDTASMOV. 

• DOS/BIN, a disk operating system. DOS contains disk 
access routines that you can call from an assembly 
language program. (You cannot call BASIC'S disk ac- 
cess routines with any program other than BASIC.) 

EDTASM/BIN, EDTASMOV/BIN, and ZBUG/BIN all 
use DOS routines and must be run with DOS. 

The Disk EDTASM also contains: 

• DOS/BAS. A BASIC program that loads DOS/BIN. 

• ZBUG/BAS. A BASIC program that loads ZBUG/BIN. 



How to Use this Manual 



This manual is organized for both beginning and ad- 
vanced assembly language programmers. Sections l-IV 
are tutorials; Section V is reference. 



Beginning Programmers: 



Read Section I first. It shows how the entire system 
works and explains enough about assembly language to 
get you started. 

Then, read Sections II, III, and IV in any order you want. 
Use Section V, "Reference," as a summary. 

This manual does not try to teach you 6809 mnemonics. 
To learn this, read: 

Radio Shack Catalog #62-2077 
by William Barden Jr. 

6809 Assembly Language Programming 
by Lance A. Leventhal 

Nor does it teach you disk programming concepts. To 
learn these, read: 

Color Computer Disk System Manual 
(Radio Shack Catalog #26-3022) 



Advanced Programmers: 



First, read Chapters 1 and 2 to get started and see 
how the entire system works. Then, read Section V, 
"Reference." 

You can use the DOS program listing to obtain informa- 
tion on routines and addresses not explained in this 
manual. Please note the following: 



Radio Shack supports only these DOS routines: 
OPEN, CLOSE, READ, and WRITE. Additional 
DOS routines are listed in Reference H. However, 
Radio Shack does not promise to support them. 

Even more DOS routines and addresses can be 
found in the program listing. However, Radio Shack 
does not promise to support them nor even provide 
them in the future. 

For technical information on the Color Computer Disk 
System and 6809, refer to 6809 Assembly Language 
Programming and Color Computer Disk System Manual, 
listed above. 



This manual uses these 
terms and notations: 

(KEY) To denote a key you must press. 

/fa//cs To denote a value you must supply. 

filespec To denote a DOS file specification. A DOS 
filespec is in one of these formats: 

filename/ext :d ri ve 
filename. extdrive 

filename has one to eight characters. 

extension has one to three characters. 

drive is the drive number. If the drive num- 
ber is omitted, DOS uses the first available 
drive. 

$ To denote a hexadecimal (Base 16) num- 

ber. For example, $0F represents hexa- 
decimal OF, which is equal to 15 in decimal 
(Base 10) notation. 
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SECTION I 



GETTING STARTED 



This section gets you started using the Disk 
EDTASM and explains some concepts you 
need to know. 



Chapter 1/ Preparing Diskettes 



Before using the Disk EDTASM, you need to format 
blank diskettes and back up the master Disk EDTASM 
diskette. 



Formatting Blank Diskettes 



1 . Power up your disk system and insert a blank disk- 
ette in Drive 0. (See the Color Computer Disk Sys- 
tem Manual for help.) 

2. At the OK prompt, type: 



2. At the BASIC OK prompt, type: 



DSKINI0 (ENTER) 

BASIC formats the diskette. When finished, it again 
shows the OK prompt. 



Making Backups 
of Disk EDTASM 



Single-Drive Systems 



BACKUP TO CENTER) 

3. BASIC then prompts you to insert the "destination" 
diskette. Remove the so urce di skette and insert a 
formatted diskette. Press (ENTER) 

4. BASIC prompts you to alternatively insert the 
source, then destination diskettes. When the back- 
up is finished, the OK prompt appears. 

The destination diskette is now a duplicate of the master 
Disk EDTASM diskette. 



Multi-Drive Systems 

1 . Insert the master Disk EDTASM diskette in Drive 0. 

2. Insert a formatted diskette in Drive 1 . 

3. At BASIC'S OK prompt, type: 



1. Insert the master Disk EDTASM diskette, your 
"source" diskette, in Drive 0. 



BACKUP TO 1 (ENTER) 

BASIC makes the backup. When the backup is 
finished, the OK prompt appears. 

The diskette in Drive 1 is now a duplicate of the master 
Disk EDTASM diskette. 



Chapter 2/ 
Running a Sample Program 



This "sample session" gets you started writing programs 
and shows how to use the Disk EDTASM. The next 
chapters explain why the program works the way it does. 

1. Load and Run DOS 



Insert the Disk EDTASM diskette in Drive 0. 


At the OK 


prompt, type: 




RUN "DOS" CERTER) 




DOS then loads and puts you in its "command mode." 


The screen shows the DOS command menu: 




1. Exit to BASIC 




2 . Exec a ProJraw 




3. Start ClocK Display 




4. DisK Allocation Map 




5 . Copy Files 




6. Directory 





DOS consists of many disk input and output routines 
which EDTASM uses. You must load DOS before load- 
ing EDTASM. 

2. Load and Run EDTASM 



At the DOS Menu, press GD to select "Execute a Pro- 
gram." The screen asks for the name of a program file. 

If your system has 32K or more, use EDTASM. If it has 
only a 16K system, use EDTASMOV. 

Loading EDTASM: 

Type EDTASM. The screen shows: 

EXECUTE A PROGRAM 

PROGRAM NAME: [EDTASM 1/BIN 



If you make a typing error, use the £E) to reposition the 
cursor at the beginning of the line, then correct the mis- 
take. Replace any trailing characters with blank spaces. 



Press CENTER) . EDTASM loads and shows its startup 
message. 

Loading EDTASMOV: 

Type EDTASMOV. The screen shows: 

EXECUTE A PROGRAM 

PROGRAM NAME: [EDTASMOV] /BIN 

If you make a mistake, use the © to reposition the cur- 
sor, then correct the mistake. 

EDTASMOV loads and shows its startup message. 

Always keep EDTASMOV in Drive 0. It contains overlays 
which it loads into memory as required. It always looks 
for these overlays in Drive 0. 

3. Type the Source Program 

Notice the asterisk (*) prompt. This means you are in the 
editor program of EDTASM or EDTASMOV. The editor 
lets you type and edit an assembly language "source" 
program. 

At the * prompt, type: 

I CENTER) 

This puts you in the editor's insert mode. The editor re- 
sponds with line number 00100. Type: 



START Q LDA © #*F3 CENTER) 



The right arrow tabs to the next column. CENTER) inserts 
the line in the editor's "edit buffer." The $ means that F9 
is a hexadecimal (Base 1 6) number. 
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Your screen should show: 



00100 
00110 



START 



LDA 



»$F9 



meaning that you inserted line 100 and can now insert 
line 110. 



If you make a mistake, press (BREAK) . Then, at the 
prompt, delete Line 100 by typing: 



Now, insert Line 1 00 correctly in the same manner 
described above. 

Insert the entire assembly language program listed 
below. 

Note that line 150 uses brackets. Do not substitute 
parentheses f or the brackets. To produce the left 
bracket, press (SHIFT) and d) at the sam e time. To 
produce the right bracket, press (SHIFT) and @ at 
the same time. 



00100 


START 


LDA 


»$F9 


00110 




LDX 


»$400 


00120 


SCREEN 


STA 


>X + 


00130 




CMPX 


»$G00 


00140 




BNE 


SCREEN 


00150 


WAIT 


JSR 


[$A000] 


00160 




BEO 


WAIT 


00170 




CLR 


$71 


00180 




JMP 


[$FFFE] 


00190 


DONE 


EQU 


* 


00200 




END 





If you make a mistake, press (BREAK) . Then, at the * 
prompt, delete the program by typing: 

D#:* 

Now, insert the program correctly. 

When finished, press (BREAK) . The program you have in- 
serted is an assembly language "source" program, 
which we'll explain in the next chapter. 



4. Assemble the Source 
Program in Memory 

At the * prompt, type: 



A/IM/WE (ENTER) 

which loads the assembler program. The assembler then 
assembles your source program into 6809 machine code 



into the memory area just above the EDTASM or 
EDTASMOV program. To let you know what it has done, 
it prints this listing: 



4B28 8S 


F9 


00100 


START 


LDA 


*$F9 






4B2A 8E 


0400 


00110 




LDX 


*$400 






4B2D A7 


80 


00120 


SCREEN 


STA 


»X + 






4B2F 8C 


0600 


00130 




CMPX 


#$600 






4B32 2G 


F9 


00140 




BNE 


SCREEN 






4B34 AD 


9F A000 


00150 


WAIT 


JSR 


[$A000] 






4B38 27 


FA 


00160 




BEO 


WAIT 






4B3A 0F 


71 


00170 




CLR 


$71 






4B3C BE 


9F FFFE 


00180 




JMP 


C$FFFE] 








4B40 


00190 


DONE 


EQU 


* 








0000 


00200 




END 








00000 TOTAL ERRORS 






DONE 


4B40 






SCREEN 


4B2D 






START 


4B28 






WAIT 


4B34 







(If using EDTASMOV, the numbers will be different.) 

If the assembler does not print this entire listing, but 
stops and shows an error message instead, you have an 
error in the source program. Repeat Steps 3 and 4. 

The assembler listing is explained in Figure 1 of 
Chapter 7. 

5. Prepare the 
Program for DOS 

Before saving the program, you need to prepare it so 
that you can load and run it from DOS. 

First, you must give it an "origination address" for DOS 
to use in loading the program back into memory. (We 
recommend you use Address $1200, the first address 



available after the DOS system.) To do so, type: 



150 (ENTER) 
and insert this line: 
50 



ORG 



$1200 



Next, you need to add two lines to your program to tell 
DOS how long the program is. Insert these lines: 



B0 BEGIN 


JMP 


BTART 


70 




FDB 


DONE-BEGIN 


When finished, 
type: 


press (BRE 


AK). To S« 


3e the entire progr 


P#:* (ENTER) 




It should look like this: 






00050 




ORG 


$1200 


00060 


BEGIN 


JMP 


BTART 


00070 




FDB 


DONE-BEGIN 


00100 


5TART 


LDA 


#$F5 


00110 




LDX 


*$400 


00120 


5CREEN 


5TA 


»X + 


00130 




CMP* 


! »$S00 


00140 




BNE 


5CREEN 


00150 


WAIT 


J5R 


C$A000] 


00160 




BEQ 


WAIT 


00170 




CLR 


$71 


00180 




JMP 


C$FFFE] 


00160 


DONE 


EQU 


* 


00200 




END 





If you make a mistake, delete the line with the error 
and insert it again. 



6. Save the Source 
Program on Disk 

To save the source program, type (at the * prompt): 



WD SAMPLE (ENTER) 

This saves the source program on disk as SAMPLE/ 
ASM. 



7. Save the Assembled 
Program on Disk 

At the * prompt, type: 



Be sure you have a blank space between SAMPLE and 
/SR. This causes the assembler to again assemble the 
source program into 6809 code. This time, the Assem- 
bler saves the assembled program on disk as SAMPLE/ 
BIN. 

(You must use the /SR "switch" to assemble any pro- 
gram that you want to load and run from DOS.) 



8. Run the Assembled 
Program from DOS 



To run the assembled program, you need to be in the 
DOS command mode. At the * prompt, type: 



K (ENTEH) 

which causes the Editor to return you to the DOS com- 
mand menu. Press (ID to execute a program. Then type 
SAMPLE, the name of the assembled program. (The 
assembler assumes you mean SAMPLE/BIN.) The 
screen shows: 

EXECUTE A PROGRAM 

PROGRAM NAME: [SAMPLE H/BIN 



Press (ENTER) . The SAMPLE program executes, filling 
your entire screen with a graphics checkerboard. 

Press any key to exit the program. The program returns 
to BASIC startup message. 



9. Debug the Program 
(if necessary) 

ZBUG lets you to look at memory. How you load ZBUG 
depends on whether you are using EDTASM or EDTAS- 
MOV. 

EDTASM Users: 

You can load ZBUG from EDTASM. Load DOS and 
EDTASM again (Steps 1 and 2). Then, at the * prompt, 
type: 



AD SAMPLE /SR (ENTER) 



Z (ENTER) 

EDTASM loads its ZBUG program and displays ZBUG's 
# prompt. You can now examine any memory address. 
Type: 

4000/ 
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and ZBUG shows you what is in memory at this address. 
Press CD a few times to l ook at more memory addres- 
ses. When finished, press (BREAK) . 

In Chapter 8, we'll show you how to use ZBUG to ex- 
amine and test your program. To return to EDTASM's 
editor, type: 



EXECUTE A PROGRAM 
PROGRAM NAME: [ZBUG 



]/BIN 



E (ENTER) 



EDTASMOV Users: 

You must use the Stand-Alone ZBUG. Load DOS again 
(Step 1). At the DOS Menu, press CD, "Execute a Pro- 
gram," and run the ZBUG program. After typing ZBUG, 
the screen shows: 



DOS loads the stand-alone ZBUG and displays ZBUG's 
# prompt. You can now examine any memory address. 
Type: 

3800/ 

and ZBUG shows you what is in memory at this address. 
Press CD a few times to l ook at more memory addres- 
ses. When finished, press (BREAK) . 

In Chapter 8, we'll show you how to use ZBUG to ex- 
amine and test your program. To return to DOS, type: 



K (ENTER) 



Chapter 3/ Overview 



This chapter is for beginning assembly language pro- 
grammers. It explains some concepts you need. If you're 
not a beginner, use this chapter as a refresher or skip it. 



The Color 
Computer Hardware 



The Color Computer consists of: 

• The 6809E Processor 

• Memory 

• Input/Output Devices 

This shows how they relate to each other: 
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• Buses — for transferring data to or from the processor. 

All instructions to the processor must be in 6809 
machine code: a code of 0s and 1s containing 
"opcodes" and data. "Opcodes" are instructions that tell 
the processor to manipulate data in some way. 

For example, the machine-code instruction "10000110 
11111001" contains: 

• The opcode "10000110" (decimal 134 or hexadecimal 
86) 

• The data "11111001" (decimal 249 or hexadecimal 
F9) 

This instruction tells the processor to load Register A 
with 11111001. 



Memory 

Memory is a storage area for programs and data. There 
are two kinds of memory: 

• Random access memory (RAM) — for temporary stor- 
age of programs or data. When you load a program 
from disk, you load it into RAM. Many opcodes store 
data in RAM temporarily. 

• Read only memory (ROM) — for permanent storage 
of programs. BASIC, as well as any program pack you 
use, is stored in ROM. The Color Computer contains 
several "ROM routines" that you can use to access 
the keyboard, screen, or tape recorder. 

When writing an assembly language program, you must 
constantly be aware of what's happening in memory. For 
this reason, this manual provides a memory map. (See 
Reference J.) 



The Processor 

The processor processes all data going to each memory 
address and device. It contains: 

• Registers — for temporarily storing 1- or 2-byte 
values. 



Devices 

All other parts of the hardware are called devices. A de- 
vice expects the processor to input or output data to it in 
a certain format. To input or output data in this format, 
you can use these pre-programmed subroutines: 
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• Routines stored in ROM (ROM routines) — for input- 
ting or outputting to the keyboard, screen, printer, or 
tape recorder. 

• Routines stored in DOS (DOS routines) — for input- 
ting or outputting to disk. 



(Addressing-mode characters are discussed below.) 

Mnemonics are specific to a particular processor. For ex- 
ample, Radio Shack's Model 4 uses the Z80 processor, 
which understands Z80 mnemonics, rather than the 
6809 mnemonics. 



The Disk EDTASM 
Assembler 



The Disk EDTASM looks for three fields in your instruc- 
tions: label, command, and operand. For example, in this 
instruction: 

BEGIN JMP START 

BEGIN is the label. JMP is the command. START is the 
operand. 

In the label field, it looks for: 

• Symbols (symbolic names) 

In the command field, it looks for: 

• Mnemonics 

• Pseudo Ops 

In the operand field, it looks for: 

• Symbols 

• Operators 

• Addressing-Mode Characters 

• Data 

Symbols 

A symbol is similar to a variable. It can represent a value 
or a location. BEGIN (in the sample session) is a symbol 
that represents the location of the instruction JMP 
START. START is also a symbol that represents the 
location of LDA #$F9. 

Mnemonics 

A mnemonic is a symbolic representation of an opcode. 
It is a command to the processor. "LDA" is a mnemonic. 
Depending on which "addressing-mode character" you 
use, LDA represents one of these opcodes: 

10000110 
10010110 
10110110 
10100110 



Pseudo Ops 

A pseudo op is a command to the assembler. END (in 
the sample session) is a pseudo op. It tells the assem- 
bler to quit assembling the program. 

Data 

Data is numbers or characters. Many of the mnemonics 
and pseudo ops call for data. Unless you use an oper- 
ator (described next), the assembler interprets your data 
as a decimal (Base 10) number. 

Operators 

An operator tells the assembler to perform a certain op- 
eration on the data. In the value $1200, the $ sign is an 
operator. It tells the assembler that 1 200 is a hexadeci- 
mal (Base 1 6) number, rather than a decimal (Base 1 0) 
number. 

The more commonly used operators are arithmetic and 
relational. Addition ( + ) and equation ( = ) are examples 
of these operators. 

Addressing-Mode Characters 

An addressing mode character tells the assembler how it 
should interpret the mnemonic. The assembler then 
assembles the mnemonic into the appropriate opcode. 

The sample session uses the # character with the LDA 
mnemonic to denote the "immediate" addressing mode. 
This causes the assembler to assemble LDA into the 
opcode 10000110. 

The immediate mode means that the number following 
the mnemonic (in this case, $F9) is data rather than an 
address where the data is stored. 

Pseudo ops, symbols, operators, and addressing-mode 
characters vary from one assembler to another. Section 
III explains them in detail. 
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Sample Program 

This is how each line in the sample program works: 

50 ORG $1200 

ORG is a pseudo op for "originate." It tells the assem- 
bler to begin loading the program at Location $1200 
(Hexadecimal 1200). This means that when you load 
and run the program from DOS, the program starts at 
Memory Address $1 200. 



B0 



BEGIN 



JMP START 



BEGIN is a symbol. It equals the location where the JMP 
START instruction is stored. 

JMP is a mnemonic for "jump to an address." It causes 
the processor to jump to the location of the program 
labeled by the symbol START, which is the LDA #$F9 
instruction. You must use JMP or LBRA as the first in- 
struction in a DOS program. 



70 



FDB D0NE-BEGIN 



FDB is a pseudo op for "store a 2-byte value in mem- 
ory." It stores the value of DONE-BEGIN (the length of 
the program) in the next two bytes of memory. You must 
store this value at the beginning of the program to tell 
DOS how much of the program to load. 



00100 



START 



LDA #$F9 



START is a symbol. It equals the location where LDA 
#$F9 is stored. 

LDA is a mnemonic for "load Register A." It loads Regis- 
ter A with $F9, which is the hexadecimal ASCII code for 
a graphics character. The ASCII characters are listed in 
Reference K. 



00110 



LDX »$400 



LDX is a mnemonic for "load Register X." It loads Regis- 
ter X with $400, the first address of video memory. Ref- 
erence J shows where video memory begins and ends. 



00120 



SCREEN 



STA 



>X + 



SCREEN is a symbol. It equals the location where STA 
,X + is stored. 

STA is a mnemonic for "store Register A." It stores the 
contents of Register A ($F9) in the address contained in 
Register X ($400). This puts the $F9 graphics character 
at the upper left corner of your screen. 

The "," and " + " are addressing-mode characters. The , 
causes the processor to store $F9 in the address con- 



tained in Register X. The + causes the processor to 
then increment the contents of Register X to $401 . 



00130 



CMPX *$G00 



CMPX is a mnemonic for "compare Register X." It com- 
pares the contents of Register X with $600. If Register X 
contains $600, the processor sets the "Z" bit in the Reg- 
ister CC to 1 . 



00140 



BNE SCREEN 



BNE is a mnemonic for "branch if not equal." It tells the 
processor return to SCREEN (the STA.X+ instruction) 
until the Z bit is set. 

The BNE SCREEN instruction creates a loop. The pro- 
gram branches back to SCREEN, filling all video mem- 
ory addresses with $F9, until it fills Address $600. At that 
time, Register X contains $600, Bit Z is set, and program 
control continues to the next instruction. 



00150 



WAIT 



JSR [$A000] 



JSR is a mnemonic for "jump to a subroutine." $A000 is 
a memory address that stores the address of a ROM 
routine called POLCAT. (See Reference F.) 

POLCAT scans the keyboard to see if you press a key. 
When you do, it clears the Z bit. 

The "[ ]" are addressing-mode characters. They tell the 
processor to use an address contained in an address, 
rather than the address itself. Always use the "[ ]" signs 
when calling ROM routines. 



00160 



BEQ WAIT 



BEQ is a mnemonic for "branch if equal." It branches to 
the JSR [$A000] instruction until the Z bit is clear. This 
causes the program to loop until you press a key, at 
which time POLCAT clears the Z bit. 



00170 
00180 



CLR 
JMP 



$71 
[$FFFE] 



CLR is a mnemonic for "clear," and JMP is a mnemonic 
for "jump to memory address." These two instructions 
end the program and return to BASIC'S startup mes- 
sage. 

(CLR inserts a zero in Address $71 ; this signals that the 
system is at its original "uninitialized" condition. JMP 
goes to the address contained in Address $FFFE; this is 
where BASIC initialization begins.) 



00180 



DONE 



ECU 



EQU is a pseudo op. It equates the symbol DONE with 
an asterisk (*), which represents the last line in the 
program. 
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3 / OVERVIEW 



00190 END 

END is a pseudo op. It tells the assembler to quit 
assembling the program. 
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SECTION II 



COMMANDS 



II 



COMMANDS 



This section shows how to use the many 
Disk EDTASM commands. Knowing these 
commands will help you edit and test your 
program. 
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Chapter 4/ Using the DOS Menu 
(DOS Commands) 



When you first enter DOS, a menu of six DOS com- 
mands appear on the screen. Chapter 2 shows how to 
use the first two DOS commands. This chapter shows 
how to use the remaining commands: 

• Start Clock Display 

• Disk Allocation Map 

• Copy Files 

• Directory 

To use the examples in this chapter, you need to have 
the SAMPLE disk files, which you created in Chapter 2, 
on the diskette in Drive 0. 



Directory 



The DOS "directory" command lets you select the direc- 
tory entries you want to see, using three fields: filename, 
extension, and drive number. 

To select the directory entries, press GD at the DOS 
Menu. Then, press the CD to move the cursor left or CD 
to move right. 

Type this line to select all directory entries that have the 
filename SAMPLE. 

[SAMPLE**] [***] :[0] <FILE SPEC 



Use the (SPACEBAR) to erase characters. Press (ENTER) 
when finished. Then, press any key to return to the DOS 
menu, and press GD to return to the directory. 

Type this line to select all directory entries with the ex- 
tension /BIN: 

[********] [BIN] :[0] <FILE SPEC 



Press (ENTER) when finished. Return to the main menu. 

To se e all dir ectory entries on the disk in Drive 0, simply 
press (ENTER) without specifying a filename or extension: 

[*#***♦#*] [*##] : [0] <FILE SPEC 



Disk Allocation Map 



The "disk allocation map" command tells you how much 
free space you have on your diskettes. To see the map, 
press (3D at the DOS menu. 

DOS shows a map of the diskettes that are in each 
drive. The map shows how each of the diskette's 68 
granules is allocated: 

• A period (.) means the granule is free. 

• An X means all the sectors in the granule are currently 
allocated to a file. 

• A number indicates how many sectors in the granule 
are currently allocated to a file. 

Press any key to return to the DOS menu. 



Copy Files 



The "Copy Files" command makes a duplicate of a disk 
file. To use it, press CO at the DOS menu. DOS then 
prompts you for the names of the files. 

Single-Drive Copy 

The first example copies SAMPLE/ASM to another file 
named COPY/ASM. Use the CD and CD to position the 
cursor. Answer the prompts as shown: 



Source File Name 
Extension 
D r i ue 

Destination File 
Extension 
D ri u e 



Name 



[SAMPLE 

[ASM] 

[0] 

[COPY 
[ASM] 
[0] 



] 



If Driues are the same are 
u s i n 3 different diskettes? 
( Y or N )? [N] 



you 
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4 / USING THE DOS MENU 



When finished, press (ENTER) . DOS copies SAMPLE/ 
ASM to a new file named COPY/ASM and then returns 
to the DOS menu. Check the directory (by pressing GD) 
and you'll see that both SAMPLE/ASM and COPY/ASM 
are on your diskette. 

The next example copies SAMPLE/ASM to another disk- 
ette. Answer the prompts as shown: 



Source File Name 
Extension 
Drive 

Destination File 
Extension 
Drive 



Name 



[SAMPLE 

CASM] 

C0] 

[COPY 
[ASM] 
[0] 



] 



If Drives are the same are you 
usinS different diskettes? 
( Y or N )? [Y] 



Press (ENTER) . DOS t hen p rompts you to insert the 
source diskette. Press (ENTER) again. 

DOS then prompts you for a desti nation diskette. Insert 
the destination diskette and press (ENTER) . After copying 
the fil e, DOS prompts you for a system diskette. If you 
press (ENTER) without inserting a system diskette, you will 
get a SYSTEM FAILURE error. 

When finished, it returns to the DOS menu. 



Multi-Drive Copy 



This example copies SAMPLE/ASM in Drive to SAM- 
PLE/ASM in Drive 1. Answer the prompts as shown: 



Source File Name 
Extension 
Drive 

Destination File 
Extension 
Drive 



Name 



[SAMPLE 

[ASM] 

[0] 

[SAMPLE 

[ASM] 

[U 



] 



If Drives are the same are you 
usinS different diskettes? 
< Y or N )? [N] 



Start Clock Display 



The Color Computer has a clock that runs on 60-cycle 
interrupts. Since the clock skips a second or more when 
the computer accesses tape or disk, we recommend that 
you not use it while executing a program. 

To use the clock, press CD, "Start Clock Display." Six 
digits appear at the upper right corner of your screen. 
The first two are hours, the next are minutes, and the 
next are seconds. This clock counts the time until you 
exit DOS. 
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Chapter 5/ Examining Memory 
ZBUG Commands — Part I 



To use the Disk EDTASM, you must understand the 
Color Computer's memory. You need to know about 
memory to write the program, assemble it, debug it, and 
execute it. 

In this chapter, we'll explore memory and see some of 
the many ways you can get the information you want. To 
do this, we'll use ZBUG. 

If you are not "in" ZBUG, with the ZBUG # prompt dis- 
played, you need to get in it now. 

EDTASM: Load and run DOS, then execute the 
EDTASM program. At the editor's * prompt, type 

Z (ENTER) 

EDTASMOV: Load and run DOS, then execute the 
ZBUG program. 

You should now have a # prompt on your screen. This 
means you are in ZBUG and you may enter a ZBUG 
command. All ZBUG commands must be entered at this 
comman d level. Yo u can r eturn to the command level by 
pressing (BREAK) or (ENTER) . 



Examining a 
Memory Location 



The 6809 can address 65,536 one-byte memory addres- 
ses, numbered 0-65535 ($0000-$FFFF). We'll examine 
Address $A000. At the # prompt, type: 



BdSJJE) 

to get into the "byte mode." Then type: 

A000/ 

and ZBUG shows the contents of Address $A000. To 
see the contents of the next bytes, press CD- Use CD to 
scroll to the preceding address. 



Continue pressing CD or CD- Notice that as you use the 
CD the screen continues to scroll down. The smaller 
addresses are on the lower part of the screen. 

All the numbers you see are hexadecimal (Base 16). 
You see not only the 10 numeric digits, but also the 6 
alpha characters needed for Base 16 (A-F). Unless you 
specify another base (which we do in Chapter 9), ZBUG 
assumes you want to see Base 16 numbers. 

Notice that a zero precedes all the hexadecimal num- 
bers that begin with an alphabetic character. This is 
done to avoid any confusion between hexadecimal num- 
bers and registers. 



Examination Modes 

To help you interpret the contents of memory, ZBUG 
offers four ways of examining it: 

• Byte Mode 

• Word Mode 

• ASCII Mode 

• Mnemonic Mode 



Byte Mode 

Until n ow, you've been using the byte mode. Typing B 
(ENTER) , at the # prompt got you into this mode. 

The byte mode displays every byte of memory as a num- 
ber, whether it is part of a machine-language program or 
data. 

In this examination mode, the CD increments the ad- 
dress by one. The CD decrements the address by one. 
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Word Mode 



Type (ENTER] to get back to the # prompt. To enter the 
word mode, type: 



H fENTEB) 

Look at the same memory address again. Press the CD 
key a few times. In this mode, the CD increments the 
address by two. The numbers contained in each address 
are the same, but you are seeing them two bytes or one 
word at a time. 

Press the CD a few times. The CD always decrements 
the address by one, regardless of the examination 
mode. 

Look at Address $A000 again by typing: 

A000/ 

Note the contents of this address "word." This is the 
address where POLCAT, a ROM routine, is stored. 

Examine the POLCAT routine. For example, if $A000 
contains A1C1, type: 

AlCi/ 

and you'll see the contents of the first two bytes in the 
POLCAT routine. We'll examine this routine later in this 
chapter using the "mnemonic mode." 

ASCII Mode 

Return to the command level. To enter the ASCII mode, 
type: 



A (ENTER) 

ZBUG now assumes the content of each memory 
address is an ASCII code. If the "code" is between $21 
and $7F, ZBUG displays the character it represents. 
Otherwise, it displays meaningless characters or 
"garbage." 

Here, the CD increments the address by one. 

Mnemonic Mode 

This is the default mode. Unless you ask for some other 
mode, you will be in the default mode. 

Return to the # prompt. To enter the mnemonic mode 
from another mode, type: 



M (ENTER) 
Look at the addresses where the POLCAT routine is 



stored. For example, if you found that POLCAT is at 
address $A1C1, type: 

A1C1/ 

Press the CD a few times. In the mnemonic mode, 
ZBUG assumes you're examining an assembly language 
program. The CD increments memory one to five bytes 
at a time by "disassembling" the numbers into the mne- 
monics they represent. 

For example, assume the first two addresses in POL- 
CAT contain $3454. $3454 is an opcode for the PSHS 
U,X,B mnemonic. Therefore, ZBUG disassembles $3454 
into PSHS U,X,B. 



Begin the disassembly at a different byte. Press (BREAK) 
and then examine the address of POLCAT plus one. For 
example, if POLCAT starts at address $A1C1, type: 

A1C2/ 

You now see a different disassembly. The contents of 
memory have not changed. ZBUG has, however, inter- 
preted them differently. 

For example, assume $A1C2 contains a $54. This is the 
opcode for the LSRB mnemonic. Therefore, ZBUG dis- 
assembles $54 into LSRB. 

To see the program correctly, you must be sure you are 
beginning at the correct byte. Sometimes, several bytes 
will contain the symbol "??". This means ZBUG can't 
figure out which instruction is in that byte and is possibly 
disassembling from the wrong point. The only way of 
knowing you're on the right byte is to know where the 
program starts. 



Changing Memory 



As you look at the contents of memory addresses, notice 
that the cursor is to the right. This allows you to change 
the contents of tha t address. After typing the new con- 
tents, press (ENTER) or CD; the change will be made. 

To show how to change memory, we'll open an address 
in video memory. Get into the byte mode and open 
Address $01 5A by typing: 



(BREAK) B (ENTER) 

015A/ 

Note that the cursor is to the right. To put a 1 in that 
address, type: 



1 (ENTER) 
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If you want to change the contents of more than one 
address, type: 

015A/ 

Then type: 

DDCD 

This changes the contents to DD and lets you change 
the next address. (Press the CD to see that the change 
has been made.) 

The size of the changes you make depends on the ex- 
amination mode you are in. In the byte mode, you will 
change one byte only and can type one or two digits. 

In the word mode, you will change one word at a time. 
Any 1-, 2-, 3-, or 4-digit number you type will be the new 
value of the word. 

If you type a hexadecimal number that is also the name 
of a 6809 registers (A,B,D,CC,DP,X,Y,U,S,PC), ZBUG 
assumes it's a register and gives you an "EXPRESSION 
ERROR." To avoid this confusion, include a leading zero 
(0A,0B, etc.) 

To change memory in the ASCII mode, use an apos- 
trophe before the new letter. For example, here's how to 
write the letter C in memory at Address $01 5A. To get 
into the ASCII examination mode, type: 



If you are in mnemonic mode, you must change one to 
five bytes of memory depending on the length of the 
opcode. Changing memory is complex in mnemonic 
mode because you must type the opcodes rather than 
the mnemonic. 

For example, get into the mnemonic mode and open 
Address $01 5A. Type: 

M (ENTER) 
015A/ 

To change this instruction, type: 
8B dBTJB) 

Now Address $01 5A contains the opcode for the LDA 
mnemonic. Open location 01 5B: 

015B/ 

and insert $06, the operand: 



06 (ENTER) 

Upon examining Address $01 5A again, you'll see it now 
contains an LDA #6 instruction. 



Exploring the 
Computer's Memory 



To open Address $015A,type: 

015A/ 
To change its contents to a C, type: 

'CCD 

Pressing the CD will assure you that the address con- 
tains the letter C. 



You are now invited to examine each section of memory 
using ZBUG commands to change examination modes. 
Use the Memory Map in Reference J. 

Don't hesitate to try commands or change memory. You 
can restore anything you alter simply by removing the 
diskette and turning the computer off and then on again. 
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Chapter 6/ Editing the Program 
Editor Commands 



The editor has many commands to help you edit your 
source program. Chapter 2 shows how to enter a source 
program. This chapter shows how to edit it. 

To use the edit commands you must return to the editor 
from ZBUG: 

EDTASM: Fro m EDTA SM ZBUG, return to the edi- 
tor by typing E (ERTEH1 

EDTASMOV: From Stand- Alone Z BUG, return to 
the DOS menu by typing K (ENTER) . Then, execute 
the EDTASMOV program. 

The screen now shows the editor's * prompt. While in 
the editor you c an return to the * prompt at any time by 
pressing [BREAK) . 

This chapter uses SAMPLE/ASM from Chapter 2 as an 
example. To load SAMPLE/ASM into the editor, type: 

L SAMPLE/ASM (ENTER) 

Print Command 

Prange 

To print a line of the program on the screen, type: 

P100 (ENTER) 
To print more than one line, type: 

P100:130 (ENTER) 

You will often refer to the first line, last line, and current 
line (the last line you printed or inserted). To make this 
easier, you can refer to each with a single character: 

# first line 

* last line 

• current line (the last line you printed or 
inserted.) 

To print the current line, type: 

P. (ENTER) 



To print the entire text of the sample program, type: 



P*:* (ENTER) 

This is the same as P050:200 (ENTER) . 

The colon separates the beginning and ending lines in a 
range of lines. Another way to specify a range of lines is 
with !. Type: 

P«!5 (ENTER) 

and five lines of your program, beginning with the first 
one, are printed on the screen. 

To stop the listing while it is scrolling, quickly type: 

(SHIFT) e 

To continue, press any key. 

Printer Commands 

Hrange 
Trange 

If you have a printer, you can print your program with the 
H and T commands. The H command prints the editor- 
supplied line numbers. The T command does not. 

To print every line of the edit buffer to the printer, type: 

H»i» (ENTER) 

You are prompted with: 

PRINTER READY 

Respond with (ENTER) when ready. 

The next example prints six lines, beginning with line 
100, but without the editor-supplied line numbers. Type: 



Edit Command 

Eline 

You can edit lines in the same way you edit Extended 
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COLOR BASIC lines. For example, to edit line 100, type: 

E100 (EHTER) 

The new line 100 is displayed below the old line 100 and 
is ready to be changed. 

Press the (SPACEBAR) to position the cursor just after 
START. Type this insert subcommand: 

iEDdSTIB) 
which inserts ED in the line. 
The edit subcommands are listed in Reference A. 

Delete Command 

Orange 

If you are using the sample program, be sure you have 
written it on disk before you experiment with this com- 
mand. Type: 

0110:140 (INTER) 

Lines 110 through 140 are gone. 

Insert Command 

\startllne, Increment 

Type: 



I152»2dNTJB) 

You may now insert lines (up to 127 characters long) 
beginning with line 152. Each line is incremented by two. 
(The editor does not allow you to accidently overwrite an 
existing line. When you get to line 160, it gives you an 
error message.) 

Press (BREAK) to return to the command level. Then type: 

1200 (ENTER) 

This lets you begin inserting lines at the end of the pro- 
gram. Each line is incremented by two, the last incre- 
ment you used. 

Type: 

BREAR i dSTJB) 

The editor begins inserting at the current line. 

On startup, the editor sets the current line to 100 and the 
increment to 10. You may use any line numbers be- 
tween and 63999. 



Renumber Command 

Ustartline/mcrement 

Another command that helps with inserting lines be- 
tween the lines is N (for renumber). From the command 
level, type: 



N100 >50 (ENTER) 

The first line is now Line 100 and each line is in- 
cremented by 50. This allows much more room for in- 
serting between lines. 

Type: 

N fEHTER) 

The current line is now the first line number. 

Renumber now so you will be ready for the next instruc- 
tion. Type: 



N100»10 (ENTER) 

Replace Command 

Rstartline,increment 

The replace command is a variation of the insert com- 
mand. Type: 

R100»3 (ENTER) 

You may now replace line 1 00 with a new line and begin 
inserting lines using an increment of three. 



Copy Command 

Cstartline,range,increment 

The copy command saves typing by duplicating any part 
of your program to another location in the program. 

To copy lines, type: 

C500»100:150»10 (INTER) 

This copies lines 100 to 150 to a new location beginning 
at Line 500, with an increment of 10. An attempt to copy 
lines over each other will fail. 

ZBUG Command 

The EDTASM system contains a copy of the stand-alone 
ZBUG program. This allows you to enter ZBUG while 
your program is still in memory. 

EDTASMOV Users: You need to use the Stand- 
Alone ZBUG program, as shown in Chapter 2. 
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To enter ZBUG, type: 



Z (ENTER) 

The # prompt tells you that you are now in ZBUG. 

To re-enter the editor from ZBUG, type the ZBUG 
command: 

E (ENTEff) 

If you print your program, you'll see that entering and 
exiting ZBUG did not change it. 

BASIC Command 

To enter BASIC from the editor, type: 



(ENTER) 
If you want to enter DOS from the editor, type: 



K (INTER) 

Entering DOS or BASIC empties your edit buffer. Re- 
entering the editor empties your BASIC buffer. 

Write Command 

WD filespec 

This command is the same one you used in Chapter 2 to 
write the source program to disk. It saves the program in 
a disk file named filespec. Filespec can be in one of 
these forms: 

filename/exkdrive 
filename, extdrive 

The filename can be one to eight characters. It is 
required. 

The extension can be one to three characters. It is 
optional. If the extension is omitted, the editor assigns 
the file the extension /ASM. 

The drive can be a number from to 4. It is also option- 
al. If the drive number is omitted, the editor uses the first 
available drive. 

Examples: 

WD TEST (ENTEff) 
saves source file currently in memory as TEST/ASM. 

WD TEST/PRi 

saves the source file currently in memory as TEST/PR1. 



Load Command 

LD filespec 
LDA filespec 

This command loads a source filespec from disk into the 
edit buffer. If the source filespec you specify does not 
have an extension, the editor uses /ASM. 

If you don't specify the A option, the editor empties the 
edit buffer before loading the file. 

If you specify the A option, the editor appends the file to 
the current contents of the edit buffer. 

Appending files can be useful for chaining long pro- 
grams. When the second file is loaded, simply renumber 
the file with the renumber command. 

Examples: 

LD SAMPLE:! 

empties the edit buffer, then loads a file named SAM- 
PLE/ASM from Drive 1 . 

LDA SAMPLE/PRO 

loads a file named SAMPLE/PRO from the first available 
drive, then appends to the current contents of the edit 
buffer. 

The editor has several other commands. These are 
listed in Reference A. 



Hints on Writing Your Program 

• Copy short programs from any legal source available 
to you. Then modify them one step at a time to learn 
how different commands and addressing modes work. 
Try to make the program relocatable by using in- 
dexed, relative, and indirect addressing (described in 
Section III). 

• Try to write a long program as a series of short 
routines that use the same symbols. They will be 
easier to understand and debug. They can later be 
combined into longer routines. 

Note: You can use the editor to edit your BASIC pro- 
grams, as well as assembly language programs. You 
might find this very useful since the EDTASM editor is 
much more powerful than the BASIC editor. You need 
to first save the BASIC program in ASCII format: 

SAVE filespec, A 

Then, load the program into the editor. 
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Chapter 7/ Assembling the Program 
(Assembler Commands) 



To load the assembler program and assemble the 
source program into 6809 machine code, EDTASM (or 
EDTASMOV) has an "assembly command." Depending 
on how you enter the command, the assembler: 

• Shows an "assembly listing" giving information on 
how the assembler is assembling the program. 

• Stores the assembled program in memory. 

• Stores the assembled program on disk. 

• Stores the assembled program on tape. 

This chapter shows the different ways you can control 
the assembly listing, the in-memory assembly, and the 
disk assembly. Knowing this will help you understand 
and debug a program. 

The Assembly Command 



The command to assemble your source program into 
6809 machine code is: 



Assembling in memory: 

A /IM /switch2/switch3/ . . . 
The /IM (in memory) switch is required. 

Assembling to disk: 

A filespec Iswitch1lswitch2l . . . 

The assembled program is stored on disk as filespec. If 
filespec does not include an extension, the assembler 
uses /BIN. 



The assembled program is stored on tape as filename. 
The switch options are as follows: 



/AO 


Absolute origin 


/IM 


Assemble into memory 


/LP 


Assembler listing on the line printer 


/MO 


Manual origin 


/NL 


No listing 


/NO 


No object code in memory or disk 


/NS 


No symbol table in the listing 


/SR 


Single record 


/SS 


Short screen listing 


/WE 


Wait on assembly errors 


/WS 


With symbols 



You may use any combination of the switch options. Be 
sure to include a blank space before the first switch. If 
you omit filespec, you must use the in-memory switch 
(/IM). 

Examples: 

A/IM/WE 

assembles the source program in memory (/IM) and 
stops at each error (/WE). 

A TEST /LP 

assembles the source program and saves it on disk as 
TEST/BIN. The listing is printed on the printer (/LP). 
Note that there must be a space between the filespec 
and the switch. 

A TEST/PRO 

assembles the source program and saves it on disk as 
TEST/PRO. 



Assembling to tape: 

A filename /switchl Iswitch2l . 
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1 . The location in memory where the assembled code 
will be stored. In this example, the assembled code 
for LDA#$F9 will be stored at hexadecimal location 
#1200. 

2. The assembled code for the program line. $86F9 is 
the assembled code for LDA #$F9. 

3. The program line. 

4. The number of errors. If you have errors, you will 
want to assemble the program again with the /WE 
switch. 

5. The symbols you used in your program and the 
memory locations they refer to. 



Figure 1. Assembly Display Listing 
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Controlling the 
Assembly Listing 



The assembler normally displays an assembly listing 
similar to the one in Figure 1. You can alter this listing 
with one of these switches: 

/SS Short screen listing 

/NS No symbol table in the listing 

/NL No fisting 

/LP Listing printed on the printer 

For example: 

A SAMPLE /NS 

assembles SAMPLE and shows a listing without the 
symbol table. 

If you are printing the listing on the printer, you might 
want to set different parameters. You can do this with 
the editor's "set line printer parameters" command: 

To use this command, type (at the * prompt): 

S tENTEffi 

The editor shows you the current values for: 

• LINCNT — the number of lines printed on each page, 
("line count") 

• PAGLEN — the number of lines on a page, ("page 
length") 

• PAGWID — the number of columns on a page, ("page 
width") 

• FLDFLG — the "fold flag" (This flag should contain 1 
if your printer does not "wrap around." Otherwise, the 
flag should contain 0.) 



EDTASMOV PROGRAM 



EDIT BUFFER 

MACRO TABLE 

SYMBOL TABLE 

ASSEMBLED PROGRAM 

STARTS HERE 



$36D6 



TOP OF RAM 



$3FFF (16K) 
$7FFF (32K) 



It then prompts you for different values. Check your 
printer manual for the appropriate parameters. If you 
want the value to remain the same, simply press (ENTER) . 
For example: 

LINCNT=58 
PAGLEN=GB 
PAGWID=80 
FLDFLG=0 

sets the number of lines to 58, the page length to 66, 
and the page width to 80 columns. You can then assem- 
ble the program with the /LP switch: 

A SAMPLE /LP 

and the assembler prints the listing on the line printer 
using the parameters just set. 



In-Memory Assembly 
The /IM Switch 



The /IM switch causes the program to be assembled in 
memory, not on disk or tape. This is a good way to find 
errors in a program. 

Where in memory? This depends on whether you use 
the /IM switch alone or accompany it with an ORG in- 
struction, an /AO switch, or an /MO switch. 

Using the /IM Switch Alone 

This is the most efficient use of memory. The assembler 
stores your program at the first available address after 
the EDTASM (or EDTASMOV) program, the edit buffer, 
and the symbol table: 



EDTASM PROGRAM 



EDIT BUFFER 

MACRO TABLE 

SYMBOL TABLE 

ASSEMBLED PROGRAM 

STARTS HERE 



$4A2E 



TOP OF RAM 
Figure 2. In-Memory Assembly 



$7FFF (32K) 
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The EDTASM program ends at Address $4A2D. The 
EDTASMOV program ends at $36D5. 

The edit buffer contains the source program. It begins at 
Address $4A2E or $36D6 and varies in size depending 
on your program's length. 

The macro table references all the macro symbols in 
your program and their corresponding values. (Macros 
are described in Chapter 12.) its size varies depending 
on how many macros your program contains. 

The symbol table references all your program's symbols 
and their corresponding values. Its size varies depend- 
ing on how many symbols your program contains. 

Example: 

Load the SAMPLE/ASM back into the edit buffer. At the * 
prompt, type: 

L SAMPLE/ASM (ENTER) 
Delete the ORG line. At the * prompt, type: 



D50 (ENTER) 

Then assemble the program in memory by typing: 

A/IM (ENTER) 

(If you want another look, ty pe A/IM again. You can 
pause the display by pressing (SHIFT) (M) and continue 
by pressing any key.) 

Since this sample program uses START to label the be- 
ginning of the program, you can find its originating 
address from the assembler listing. If you are using 
EDTASM, it should begin at Address $4B1 E. If you are 
using EDTASMOV, it should begin at $37C6. 



EDTASMOV PROGRAM 



EDIT BUFFER 
MACRO TABLE 
SYMBOL TABLE 



ASSEMBLED PROGRAM 
STARTS HERE 



$36D6 



$3800 



$3FFF(16K) 
TOP OF RAM $7FFF(32K) 



Using ORG with /IM 
for Origination Offset 



If you have an ORG instruction in your program and do 
not use the AO switch, the assembler stores your pro- 
gram at: 

the first available address + the value of ORG 

Example: 

Insert this line at the beginning of the sample program: 

EDTASM Systems: 

0050 ORG $B000 

EDTASMOV Systems: 

0050 ORG $3800 

Then, at the * prompt, type: 



A/IM (ENTER) 

The START address is now the first available address + 
$6000 or $3800. This means that if you have less than 
32K (with EDTASM) or less than 16K (with EDTAS- 
MOV), the program extends past the top of RAM and 
you will get a BAD MEMORY error. 

Using IM with /AO for Absolute Origin 

The AO switch causes the assembler to store your pro- 
gram "absolutely" at the address specified by ORG. 

With the ORG instruction inserted, type (at the * prompt): 



A/IM/A0 (ENTER) 
Your program now starts at address $6000 or $3800: 



EDTASM PROGRAM 



EDIT BUFFER 
MACRO TABLE 
SYMBOL TABLE 



ASSEMBLED PROGRAM 
STARTS HERE 



$4A2E 



$6000 



TOP OF RAM 



$7FFF (32K) 



Figure 3. /AO In-Memory Assembly. 
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As you can see, the AO switch set the location of the 
assembled program only. It did not set the location of the 
edit buffer or the symbol table. 

If your ORG instruction does not allow enough memory 
for your program, you will get a BAD MEMORY error. 
The assembler cannot store your program beyond the 
top of RAM. 

Using /MO with /IM 
for Manual Origin 

The /MO switch causes your program to be assembled 
at the address set by USRORG (plus the value set in 
your ORG instruction, if you use one). To set USRORG, 
use the editor's "origin" command. 

Before setting USRORG, remove the ORG instruction 
from your program. Then, at the * prompt, type: 

(ENTEff) 

The editor shows you the current values for: 

• FIRST — the first hexadecimal address available 



• LAST — the last hexadecimal address available 

• USRORG — the current hexadecimal value of 

USRORG. (On startup, USRORG is 
set to the top of RAM.) 

It then prompts you for a new value for US RORG . If you 
want USRORG to remain the same, press (ENTER) . 

If you want to enter a new value, it must be between the 
FIRST address and LAST address. Otherwise, you will 
get a BAD MEMORY error. 

EDTASM Systems: Set USRORG to $6050: 



USRORG = B050 (ENTER) 

EDTASMOV Systems: Set USRORG to $3800: 

USRORG = 3800 (HUE) 

After setting USRORG, you can assemble the program 
at the USRORG address. Type: 



A/IM/MO (INTER) 

Your assembled program now starts at Address $6050 
or $3800: 



EDTASMOV PROGRAM 



EDIT BUFFER 
MACRO TABLE 
SYMBOL TABLE 



ASSEMBLED PROGRAM 
STARTS HERE 



$36D6 



TOP OF RAM 



$3800 



$3FFF(16K) 
$7FFF(32K) 



EDTASM PROGRAM 



EDIT BUFFER 
MACRO TABLE 
SYMBOL TABLE 



ASSEMBLED PROGRAM 
STARTS HERE 



$4A2E 



TOP OF RAM 



$6050 



$7FFF (32K) 



Figure 4. /MO In-Memory Assembly. 
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Disk Assembly 



When you specify a filespec in the assembler command, 
the assembler saves the assembled program on disk. 
You can then load the program from one of these 
systems: 

• DOS (to run as a stand-alone program) 

• ZBUG (to debug with the stand-alone ZBUG program) 

• BASIC (to call from a BASIC program) 

The program originates at the address you specify in the 
ORG instruction. 

What address you should use as the originating address 
depends upon which of the three systems you will be 
loading it into. 

Assembling for DOS 

Reference J shows the memory map that is in effect 
when DOS is loaded. As you can see, DOS consumes 
all the memory up to Address $1200. This means you 
must originate the program after $1200 or you will over- 
write DOS. 

In the sample program, reinsert the ORG $1200 
instruction: 



50 



ORG $1200 



and assemble it to disk by typing: 

A SAMPLE /SR (ENTER) 

Note the /SR switch. You must use /SR when assem- 
bling to disk a program that you plan to load back into 
DOS. This puts the program in the format expected by 
DOS. 

The assembler saves SAMPLE/BIN to disk with a start- 
ing address of $1200. You can now load and execute 
SAMPLE/BIN from the DOS menu. 

Assembling for Stand-Alone 
ZBUG (EDTASMOV Users) 

If you plan to use the stand-alone ZBUG for debugging 



your program, you need to save the program on disk so 
that you can load it into ZBUG. 

Reference J also shows the memory map that is in effect 
when ZBUG is loaded. As you can see, you must use an 
originating address of at least $3800 or you will overwrite 
ZBUG. Change the ORG instruction to: 



50 



ORG $3800 



So that you can test this from ZBUG, without the pro- 
gram returning to BASIC, you need to change the ending 
of it. First, delete the CLR instruction in Line 170: 



D170 (ENTER) 

Then, change the JMP instruction in Line 180 to this: 

180 SMI 

After making the changes to the program, assemble it to 
disk by typing: 



A SAMPLE/BUG /MS (ENTER) 

The assembler saves SAMPLE/BUG on disk with a start- 
ing address of $3800. The /WS switch causes the 
assembler to save the symbol table also. 



Hints On Assembly 

• Use a symbol to label the beginning of your program. 

• When doing an in-memory assembly on a program 
with an ORG instruction, you may want to use the /AO 
switch. Otherwise, the assembler will not use ORG as 
the program's originating address. It will use it to 
offset (add- to) the loading address. 

• The /WE switch is an excellent debugging tool. Use it 
to detect assembly errors before debugging the 
program. 

• If you would like to examine the edit buffer and symbol 
table after an in-memory assembly, use ZBUG to ex- 
amine the appropriate memory locations. 
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Chapter 8/ Debugging the Program 
(ZBUG Commands — Part II) 



ZBUG has some powerful tools for a trial run of your 
assembled program. You can use them to look at each 
register, every flag, and every memory address during 
every step of running the program. 

Before reading any further, you might want to review the 
ZBUG commands you learned in Chapter 5. We will be 
using these commands here. 



Preparing the 
Program for ZBUG 



In this chapter, we'll use the sample program from 
Chapter 2 to show how to test a program. How you load 
the program into ZBUG depends on whether you are us- 
ing EDTASM's ZBUG program or the stand-alone ZBUG 
program. 

EDTASM ZBUG: 

If you are using EDTASM, you can use EDTASM's 
ZBUG program. 

1. Load SAMPLE/ASM into EDTASM (if it's not already 
loaded). 

2. So that your program will be in the same area of 
memory as ours, change the ORG instruction to: 



Assemble the program in memory using the /IM and 
/AO switches. At the * prompt, type: 



50 



ORG 



$5800 



3. So that you can test the program properly from 
ZBUG (without the program returning to BASIC), 
you need to change the program's ending. First, de- 
lete the CLR instruction in Line 170: 

D170(fflBH) 

Then, change the JMP instruction in Line 180 to 
this: 



A/IM/AO (ENTER) 

5. Enter ZBUG. At the * prompt, type: 

Z (ENTER) 

When the # prompt appears, you're in ZBUG and 
can test the sample program. 

Stand-Alone ZBUG: 

If you are using EDTASMOV, you should use the Stand- 
Alone ZBUG. 

1 . Assemble SAMPLE/BUG to disk as instructed in the 
last chapter ("Assembling for Stand-Alone ZBUG"). 

2. Return to DOS and execute the stand-alone ZBUG 
program: 

EXECUTE A PROGRAM 

PROGRAM NAME CZBUG ]/BIN 

ZBUG loads and displays its # prompt. 

3. Load SAMPLE/BUG, along with its symbol table, 
into ZBUG. Type: 



LDS SAMPLE/BUG fENTER) 

When the # prompt appears, you're ready to test the 
sample program with ZBUG. 



180 



SMI 



Display Modes 



In Chapter 5, we discussed four examination modes. 
ZBUG also has three display modes. 

We'll examine each of these display modes from the 
mnemo nic exa mination mode. If you're not in this mode, 
type M fENTER) to get into it. 
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Numeric Mode 

Type: 

N (INTER) 

and examine the memory addresses that contain your 
program: $5800-$5817 for EDTASM's ZBUG or $3800- 
$3817 for Stand-Alone ZBUG. 

In the numeric mode, you do not see any of the symbols 
in your program (BEGIN, START, SCREEN, WAIT, and 
DONE). All you see are numbers. For example, with 
EDTASM's ZBUG, Address $580F shows the instruction 
BNE 580A rather than BNE SCREEN. 

Symbolic Mode 

From the command level, type: 

S CENTER) 

and examine your program again. ZBUG displays your 
entire program in terms of its symbols (BEGIN, START, 
SCREEN, WAIT, and DONE). Examine the memory 
address containing the BNE SCREEN instruction and 
type: 

5 

The semicolon causes ZBUG to display the operand 
(SCREEN) as a number (580A or 380A). 

Half-Symbolic Mode 

From the command level, type: 

H CENTER) 

and examine the program. Now all the memory addres- 
ses (on the left) are shown as symbols, but the operands 
(on the right) are shown as numbers. 

Using Symbols to 
Examine Memory 

Since ZBUG understands symbols, you can use them in 
your commands. For example, with EDTASM's ZBUG, 
both these commands open the same memory address 
no matter which display mode you are in: 

BEGIN/ 
5800/ 



Both of these commands get ZBUG to display your en- 
tire program: 

T BEGIN DONE 
T 5800 5817 

You can print this same listing on your printer by substi- 
tuting TH for T. 



Executing the Program 



You can run your program from ZBUG using the G (Go) 
command followed by the program's start address: 

EDTASM ZBUG: Type either of the following: 

GBEGIN (ENTE R) 
G5800 CENTER) 

Stand-Alone ZBUG: Type either of the following: 



GBEGIN (ENJE B) 
G3800 CENTER) 

The program executes, filling all of your screen with a 
pattern made up of F9 graphics characters. If you don't 
get this pattern, the program probably has a "bug." The 
rest of the chapter discusses program bugs. 

After executing the program, ZBUG displays 8 BRK @ 
5817, 8 BRK @ 3817, or 8 BRK @ DONE. This tells you 
the program stopped executing at the SWI instruction lo- 
cated at Address DONE. ZBUG interprets your closing 
SWI instruction as the eighth or final "breakpoint" (dis- 
cussed, below). 

Setting Breakpoints 

If your program doesn't work properly, you might find it 
easier to debug it if you break it up into small units and 
run each unit separately. From the command level, type 
X followed by the address where you want execution to 
break. 

We'll set a breakpoint at the first address that contains 
the symbol SCREEN: $580A for EDTASM's ZBUG or 
380A for Stand-Alone ZBUG. 

EDTASM ZBUG: Type either of the following: 

XSCREE N CENTER) 
X580A CENTER) 
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Stand-Alone ZBUG: Type either of the following: 



XSCREE N UST EH) 
X380A (ENTER) 

Now type GBEGIN (ENTER) to execute the program. Each 
time execution breaks, type: 



C (ENTER) 

to continue. A graphics character appears on the screen 
each time ZBUG executes the SCREEN loop. (The char- 
acters appear to be in different positions because of 
scrolling.You will not see the first 32 characters because 
they scroll off the screen.) 

Type: 



D (ENTER) 

to display all the breakpoints you have set. (You may set 
up to eight breakpoints numbered through 7.) 

Type: 



C10 (ENTER) 

and the tenth time ZBUG encounters that breakpoint, it 
halts execution. 

Type: 



Y (ENTER) 

This is the command to "yank" (delete) all breakpoints. 
You can also delete a specific breakpoint. For example: 



This deletes the first breakpoint (Breakpoint 0). 

You may not set a breakpoint in a ROM routine. If you 
set a breakpoint at the point where you are calling a 
ROM routine, the C command will not let you continue. 



Examining Registers 
and Flags 

Type: 



R (ENTER) 

What you see are the contents of every register during 
this stage of program execution. (See Chapter 10 for 
definition of all the 6809 registers and flags.) 

Look at Register CC (the Condition Code). Notice the 
letters to the right of it. These are the flags that are set in 
Register CC. The E, for example, means the E flag is 
set. 



Type: 

X/ 

and ZBUG displays only the contents of Register X. You 
can change this in the same way you change the con- 
tents of memory. Type: 

(ENTER) 
and the Register X now contains a zero. 

Stepping Through 
the Program 



Type: 



BEGIN* 



Note the comma ! 



LDA #$F9 is the next instruction to be executed. The 
first instruction, JMP START, has just been executed. To 
see the next instruction, type: 

i Simply a comma 

Now, LDA #$F9 has been executed and LDX #$500 is 
the next. Type: 



and you'll see this instruction has loaded Register A with 
$F9. 

Use the comma and R command to continue single- 
stepping through the program examining the registers at 
will. If you manage to reach the JSR [$A000] instruction, 
ZBUG prints: 

CAN'T CONTINUE 

ZBUG cannot single-step through a ROM routine or 
through some of the DOS routines. 



Transferring a Block 
of Memory 

EDTASM ZBUG: Type: 

U 5800 5000 G (ENTER) 
Stand-Alone ZBUG: Type: 

U 3800 3850 G (ENTER) 

Now the first six bytes of your program have been 
copied to memory addresses beginning at 5000 or 3850. 
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Saving Memory to Disk 



address is the same as the start address. 

To load TEST/BUG and its symbol table back into 
ZBUG, type: 



LDS TEST/BUG (ENTER) 



To save a block of memory from ZBUG, including the 
symbol table, type: 

edtasm zbug: ps test/bug 5800 Hints on Debugging 



5817 5800 (ENTER) 

Stand-Alon e ZBU G: 

3817 3800 (ENTER) 



PS TEST/BUG 3800 



This saves your program on disk, beginning at Address 
5800 (or 3800) and ending at Address 5817 (or 3817). 
The last address is where your program begins execu- 
tion when you load it back into memory. In this case, this 



• Don't expect your first program to work the first time. 
Have patience. Most new programs have bugs. De- 
bugging is a fact of life for all 'programmers, not just 
beginners. 

• Be sure to make a copy of what you have in the edit 
buffer before executing the program. The edit buffer is 
not protected from machine language programs. 
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Chapter 9/ Using the ZBUG Calculator 
(ZBUG Commands — Part III) 



ZBUG has a built-in calculator that performs arithmetic, 
relational, and logical operations. Also, it lets you use 
three different numbering systems, ASCII characters, 
and symbols. 

This chapter contains many examples of how to use the 
calculator. Some of these examples use the same 
assembled program that we used in the last chapter. 

Stand-Alone ZBUG: Some of the memory 
addresses we use in the examples are too high for 
your system. Subtract $1000 from all the hexadeci- 
mal addresses and 4096 from all the decimal 
numbers. 



Numbering System Modes 

ZBUG recognizes numbers in three numbering systems: 
hexadecimal (Base 16), decimal (Base 10), and octal 
(Base 8). 

Output Mode 

The output mode determines which numbering system 
ZBUG uses to output (display) numbers. From the ZBUG 
command level, type: 

010 (ESTER) 

Examine memory. The T at the end of each number 
stands for Base 10. Type: 



08 dNTJH) 

Examine memory. The Q at the end of each number 
stands for Base 8. Type: 



Input Mode 

You can change input modes in the same way you 
change output modes. For example, type: 



110 (ENTEJD 

Now, ZBUG interprets any number you input as a Base 
10 number. For example, if you are in this mode and 
type: 



T 49152 491132 (ENTER) 

ZSBUG shows you memory addresses 49152 (Base 10) 
through 49162 (Base 10). Note that what is printed on 
the screen is determined by the output mode, not the 
input mode. 

You can use these special characters to "override" your 
input mode: 



BASE 


BEFORE NUMBER 


AFTER NUMBER 


Base 10 
Base 16 
Base 8 


& 

$ 
@ 


T 
H 
Q 



016 (ENTER) 
You're now back in Base 16, the default output mode. 



Table 1 . Special Input Mode Characters 

For example, while still in the 110 mode, type: 

T 49152 $C010 (ENTER) 

The "$" overrides the 110 mode. ZBUG, therefore, inter- 
prets C010 as a hexadecimal number. As another exam- 
ple, get into the 116 mode and type: 

T 49152T C010 (ENTER) 

Here, the "T" overrides the 116 mode. ZBUG interprets 
49152 as decimal. 
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Operations 



ZBUG performs many kinds of operations for you. For 
example, type: 

C000+25TV 

and ZBUG goes to memory address C019 (Base 16), 
the sum of C000 (Base 16) and 25 (Base 10). If you 
simply want ZBUG to print the results of this calculation, 
type: 

C000+25T= 

On the following pages, we'll use the terms "operands," 
"operators," and "operation." An operation is any cal- 
culation you want ZBUG to solve. In this operation: 

1 + 2 = 

"1" and "2" are the operands. " + " is the operator. 

Operands 

You may use any of these as operands:. 

1. ASCII characters 

2. Symbols 

3. Numbers (in either Base 8, 10, or 16) — Please note 
that ZBUG recognizes integers (whole numbers) only 

Examples (Get into the 016 mode): 

'A = 
prints 41, the ASCII hexadecimal code for "A". 

START= 

prints the START address of the sample program. (It will 
print UNDEFINDED SYMBOL if you don't have the sam- 
ple program assembled in memory.) 

150 = 

prints the hexadecimal equivalent of octal 1 5. 

If you want your results printed in a different numbering 



system, use a different output mode. For example, get 
into the 01 mode and try the above examples again. 

Operators 

You may use arithmetic, relational, or logical operators. 
(Get into the 016 mode for the following examples.) 

Arithmetic Operators 



Addition 




+ 


Subtraction 




- 


Multiplication 




* 


Division 




.DIV. 


Modulus 




.MOD 


Positive 




+ 


Negative 




— 


Examples: 






DONE- 


START= 





prints the length of the sample program (not including 
the SWI at the end). 

9. DIM. 2= 
prints 4. (ZBUG can divide integers only.) 

9. MOD. 2= 
prints 1 , the remainder of 9 divided by 2. 

1-2 = 

prints OFFFF,65535T, or 177777Q, depending on which 
output mode you are in. ZBUG does not use negative 
numbers. Instead, it uses a "number circle" which oper- 
ates on modulus 10000 (hexadecimal): 




FFFD 



minus 
equals 2 
FFFF 1 



Figure 5. Number Circle Illustration of Memory. 
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To understand this number circle, you can use the clock 
as an analogy. A clock operates on modulus 12 in the 
same way the ZBUG operates on modulus 10000. 
Therefore, on a clock, 1 :00 minus 2 equals 1 1 :00: 



11:00 



10:00 




9:00 



3:00 



minus 
equals 2 
1 1 :00 1 :00 



Figure 6. Number Circle Illustration of Clock. 



Relational Operators 

Equal to .EOU. 

Not Equal to .NEC. 

These operators determine whether a relationship is true 
or false. 

Examples: 

5. EOU. 5= 

prints OFFFF, since the relationship is true. (ZBUG prints 
65535T in the 01 mode or 177777Q in the 08 mode.) 

5.NE0.5= 

prints 0, since the relationship is false. 

Logical Operators 

Shift < 

LogicalAND .AND. 

InclusiveOR .OR. 

ExclusiveOR .XOR. 

Complement .NOT. 

Logical operators perform bit manipulation on bi- 
nary numbers. To understand bit manipulation, see the 



6809 assembly language book we referred to in the 
introduction. 

Examples: 

10<2 = 

shifts 10 two bits to the left to equal 40. The 6809 SL 
instruction also performs this operation. 

10<-2= 

shifts 10 two bits to the right to equal 4. The 6809 ASR 
instruction also performs this operation. 

6. XOR. 5= 

prints 3, the exclusive or of 6 and 5. The 6809 EOR 
instruction also performs this operation. 

Complex Operations 

ZBUG calculates complex operations in this order: 

+ ,DIV. .MOD. < 

.AND. 

.OR. .XOR 

+ 

.EOU. .NEQ. 



You may use parentheses to change this order. 

Examples: 

4+4,DIV.2= 
The division is performed first. 

(4+4) .DIV.2= 
The addition is performed first. 

4*4.DIV.4= 
The multiplication is performed first. 
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SECTION III 

ASSEMBLY 
LANGUAGE 



Ill 



ASSEMBLY LANGUAGE 



This section gives details on the Disk 
EDTASM assembly language. It does not ex- 
plain the 6809 mnemonics, however, since 
there are many books available on the 6809. 

To learn about 6809 mnemonics, read one 
of the books listed in "About This Manual." If 
you need more technical information on the 
6809, read: 

MC6809-MC6809E 

8-Bit Microprocessor Programming 

Manual 

Motorola, Inc. 
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Chapter 1 0/ 
Writing the Program 



Chapter 3 gives a general description of assembly lan- 
guage instructions. This chapter describes them in 
detail. 



The 6809 Registers 

The 6809 contains nine temporary storage areas that 
you may use in your program: 



REGISTER 


SIZE 


DESCRIPTION 


A 


1 byte 


Accumulator 


B 


1 byte 


Accumulator 


D 


2 bytes 


Accumulator 
(a combination 
of A and B) 


DP 


1 byte 


Direct Page 


CC 


1 byte 


Condition Code 


PC 


2 bytes 


Program Counter 


X 


2 bytes 


Index 


Y 


2 bytes 


Index 


U 


2 bytes 


Stack Pointer 


s 


2 bvtes 


Stack Pointer 



Table 2. 6809 Registers 

Registers A and B can manipulate data and perform 
arithmetic calculations. They each hold one byte of data. 
If you like, you can address them as D, a single 2-byte 
register. 

Register DP is for direct addressing. It stores the most 
significant byte of an address. This lets the processor 
directly access an address with the single, least signifi- 
cant byte. 

Registers X and Y can each hold two bytes of data. 
They are mainly for indexed addressing. 

Register PC stores the address of the next instruction to 
be executed. 



Registers U and S each hold a 2-byte address that 
points to an entire "stack" of memory. This address is 
the top of the stack + 1. For example, if Register U 
contains 0155, the stack begins with Address 154 and 
continues downwards. 

The processor automatically points Register S to a stack 
of memory during subroutine calls and interrupts. Regis- 
ter U is solely for your own use. You can access either 
stack with the PSH and PUL mnemonics or with indexed 
addressing. 

Register CC is for testing conditions and setting inter- 
rupts. It consists of eight "flags." Many mnemonics "set" 
or "clear" one or more of these flags. Others test to see 
if a certain flag is set or clear. 

This is the meaning of each flag, if set: 

C (Carry), Bit — an 8-bit arithmetic operation 
caused a carry or borrow from the most significant 
bit. 

V (Overflow), Bit 1 — an arithmetic operation 
caused a signed overflow. 



Z (Zero), Bit 2 

tion is zero. 



the result of the previous opera- 



N (Negative), Bit 3 — the result of the previous 
operation is a negative number. 

I (Interrupt Request Mask), Bit 4 — any requests 
for interrupts are disabled. 

H (Half Carry), Bit 5 — an 8-bit addition operation 
caused a carry from Bit 3. 

F (Fast Interrupt Request Mask), Bit 6 — any re- 
quests for fast interrupts are disabled. 

E (Entire Flag), Bit 7 — all the registers were 
stacked during the last interrupt stacking operation. 
(If not set, only Registers PC and CC were stacked.) 
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Assembly Language Fields 



You may use four fields in an assembly language in- 
struction: label, command, operand, comment. In this 
instruction: 



START LDA 



#$F9 



GETS CHAR 



START is the label. LDA is the command. #$F9 + 1 is 
the operand. GETS CHAR is the comment. 

The comment is solely for your convenience. The 
assembler ignores it. 



The Label 

You can use a symbol in the label field to define a mem- 
ory address or data. The above instruction uses START 
to define its memory address. 

Once the address is defined, you can use START as an 
operand in other instructions. For example: 



BNE 



START 



branches to the memory address defined by START. 

The assembler stores all the symbols, with the addres- 
ses or data they define, in a "symbol table," rather than 
as part of the "executable program." The symbol can be 
up to six characters. 

The Command 

The command can be either a pseudo op or a mnemonic. 

Pseudo ops are commands to the assembler. The 
assembler does not translate them into opcodes and 
does not store them with the executable program. For 
example: 



NAME 



ECU 



$43 



defines the symbol NAME as $43. The assembler stores 
this in its symbol table. 



ORG 



$3000 



tells the assembler to begin the executable program at 
Address $3000. 



SYMBOL 



FCB 



$6 



stores 6 in the current memory address and labels this 
address SYMBOL. The assembler stores this informa- 
tion in its symbol table. 

Mnemonics are commands to the processor. The 



assembler translates them into opcodes and stores them 
with the executable program. For example: 

CLRA 

tells the processor to clear Register A. The assembler 
assembles this into opcode number $4F and stores it 
with the executable program. 

The next chapter shows how to use pseudo ops. Refer- 
ence L lists the 6809 mnemonics. 



The Operand 

The operand is either a memory address or data. For 
example: 



LDD 



*3000+COUNT 



loads Register D with $3000 plus the value of COUNT. 
The operand, #$3000 + COUNT, specifies a data 
constant. 

The assembler stores the operand with its opcode. Both 
are stored with the executable program. 

Operators 

The plus sign ( + ) in the above operand (#3000 + 
COUNT) is called an operator. 

You can use any of the operators described in Chapter 
9, "Using the ZBUG Calculator," as part of the operand. 

Addressing Modes 

The above example uses the # sign to tell the assem- 
bler and the processor that $3000 is data. When you 
omit the # sign, they interpret $3000 in a different 
"addressing mode." 

Example: 

LDD $3000 

tells the assembler and processor that $3000 is an 
address. The processor loads D with the data contained 
in Address $3000 and $3001. 

Each of the 6809 mnemonics lets you use one to six 
addressing modes. These addressing modes tell you: 

• If the processor requires an operand to execute 
the opcode 

• How the assembler and processor will interpret 
the operand 
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1. Inherent Addressing 

There is no operand, since the instruction doesn't re- 
quire one. For example: 

swi 

interrupts software. No operand is required. 

CLRA 

clears Register A. Again, no operand is required. Regis- 
ter A is part of the instruction. 



2. Immediate Addressing 

The operand is dafa. You must use the # sign to specify 
this mode. For example: 

ADDA «$30 

adds the value $30 to the contents of Register A. 



DATA 



EQU 
LDX 



$8004 
#DATA 



loads the value $8004 into Register X. 

CMPX #$1234 

compares the contents of Register X with the value 
1234. 

3. Extended Addressing 

The operand is an address. This is the default mode of 
all operands. 

(Exception: If the first byte of the operand is identical to 
the direct page, which is 00 on startup, it is directly 
addressed. This is an automatic function of the assem- 
bler and the processor. You need not be concerned with 
it if you're a beginner.) 

For example: 

JSR #$1234 

jumps to Address $1234. 



SPOT 



EQU 
STA 



$1234 
SPOT 



stores the contents of Register A in Address $1234. 

If the instruction calls for data, the operand contains the 
address where the data is stored. 



LDA 



$1234 



does not load Register A with $1234. The processor 
loads A with whatever data is in Address $1234. If $06 is 



stored in Address $1234, Register A is loaded with $06. 



ADDA 



$1234 



adds whatever data is stored in Address $1234 to the 
contents of Register A. 



LDD 



$1234 



loads D, a 2-byte register, with the data stored in mem- 
ory addresses $1234 and $1235. 

You can use the > sign, which is the sign for extended 
addressing, to force this mode. (See "Direct Addressing.") 

Extended Indirect Addressing. 

The operand is the address of an address. This is a 
variation of the exten ded a ddressing mode. The [ ] 
sign s spec ify it. (Use (SHIFT) CD to produce the [ sign 
and (SHIFT) © to produce the ] sign.) 

In understanding this mode, think of a treasure hunt 
game. The first instruction is "Look in the clock." The 
clock contains the second instruction, "Look in the 
refrigerator." 

Examples: 



JSR 



[$1234] 



jumps to the address contained in Addresses $1234 and 
$1235. If $1234 contains $06 and $1235 contains $11, 
the effective address is $0611. The program jumps to 
$061 1 . 



SPOT 



EQU 
STA 



$1234 
[SPOT] 



stores the contents of Register A in the address con- 
tained in Addresses $1234 and $1235. 



LDD 



[$1234] 



loads D with the data stored in the address that is stored 
in Addresses $1234 and $1235. 

This is a good mode of addressing to use when calling 
ROM routines. For example, the entry address of the 
POLCAT routine is contained in Address $A000. There- 
fore, you can call it with these instructions: 



POLCAT 



ECU 
JSR 



$A000 
[POLCAT] 



If a new version of ROM puts the entry point in a differ- 
ent address, your program still works without changes. 

4. Indexed Addressing 

The operand is an index register which points to an 
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address. The index register can be any of the 2-byte 
registers, including PC. You can augment it with: 

• A constant or register offset 

• An auto-increment or auto-decrement of 1 or 2 
The comma (,) indicates indexed addressing. 

As an example, load X, a 2-byte register, with $1234: 

LDX #$1234 

You can now access Address $1234 through indexed 
addressing. This instruction: 

STA »X 

stores the contents of A in Address $1234 

STA 3>X 

stores the contents of A in Address $1237, which is 
$1234 + 3. (The number 3 is a constant offset.) 



SYMBOL 



EOU 
STA 



$4 
SYMBOL .X 



stores the contents of A in Address $1238, which is 
$1234 + SYMBOL. (SYMBOL is a constant offset.) 



LDB 
STA 



#$5 
B »X 



stores the contents of A in Address $1239 which is 
$1234 + the contents of B. (B is a register offset. You 
can use either of the accumulator registers as a register 
offset.) 



STA 



,X + 



This instruction does two tasks: (1 ) stores A's contents in 
Address $1234 (the contents of X) and then (2) incre- 
ments X's contents by one, so that X contains $1235. 



STA 



»X + + 



(1) stores A's contents in Address $1235 (the current 
contents of X) and then (2) increments X's contents by 
two to equal $1237. 



STA 



-X 



(1) decrements the current contents of X by two to equal 
$1235 ($1237 - 2) and then (2) stores A's contents in 
Address $1235. 

As we said above, you can use PC as an index register. 
In this form of addressing, called program counter rela- 
tive, the offset is interpreted differently. For example: 



SYMBOL 



FOB 
LDA 



SYMBOL »PCR 



While assembling the program, the assembler subtracts 
the contents of Register PC from the offset: 



LDA 



SYMBOL-PC. PCR 



While running the program, the processor adds the con- 
tents of Register PC to the offset. This causes A to be 
loaded with SYMBOL. 

This seems to be the same as extended addressing. 
But, by using program counter relative adressing, you 
can relocate the program without having to reassemble 
it. 

Indexed Indirect Addressing. 

The operand is an index register which points to the 
address of an address. This is a variation of indexed 
addressing. 

For example, assume that : 

• Register X contains $1234 

• Address $1234 contains $1 1 

• Address $1235 contains $23 

• Address $1 1 23 contains $64 
This instruction: 

LDA [ »X] 

loads A with 64. (Register X points to the addresses of 
the address. This address is storing 6, the required 
data.) 



STA 



C »X] 



stores the contents of A in Address $1123. (Register X 
points to the addresses, $1234 and $1235, of the effec- 
tive address, $1123.) 

5. Relative Addressing 

The assembler interprets the operand as a relative 
address. There is no sign to indicate this mode. The 
assembler automatically uses it for all branching 
instructions. 

For example, if this instruction is located at Address 
$0580: 



BRA 



$0585 



The assembler converts $0585 to a relative branch of 
+ 3 (0585-0582). 

This mode is invisible to you unless you get a BYTE 
OVERFLOW error, which we discuss below. Because 
the processor uses this mode, you can relocate your 
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program in memory without changing any of the branch- 
ing instructions. 

The BYTE OVERFLOW error means that the relative 
branch is outside the range of -1 28 to +1 27. You must 
use a long branching instruction instead. For example: 

LBRA $0600 

allows a relative branching range of -32768 to +32767. 



6. Direct Addressing 

In this mode, the operand is half of an address. The 
other half of the address is in Register DP: 



ADDRESS 



DP REGISTER 

(most significant 

byte) 



OPERAND 

(least significant 

byte) 



Figure 7. Direct Addressing 

The assembler and the processor use this mode auto- 
matically whenever they approach an operand whose 
first byte is what they assume to be a "direct page" (the 
contents of Register DP). Until you change the direct 
page, the assembler and the processor assume it is 00. 

For example, both of these instructions: 



JSR 
JSR 



$0015 
$15 



cause a jump to Address $0015. In both cases, the 
assembler uses only 15 as the operand, not 00. When 
the processor executes them, it gets the 00 portion from 
Register DP and combines it with $15. (On startup, DP 
contains 0, as do all the other registers.) 

Because of direct addressing, all operands beginning 
with 00, the direct page, consume less room in memory 



and run quicker. If most of your operands begin with 
$12, you might want to make $12 the direct page. 

To do this, you first need to tell the assembler what you 
are doing, by putting a SETDP pseudo-operation in your 
program: 



SETDP 



$12 



This tells the assembler to drop the $12 from all oper- 
ands that begin with $12. That is, the assembler assem- 
bles the operand "1234" as simply "34". 

Then, you must load Register DP with $12. Since you 
can use LD only with the accumulator registers, you 
have to load DP in a round-about manner: 



LDB 
TFR 



*$12 
B »DP 



Now the direct page is $12, rather than 00. The proces- 
sor executes all operands that begin with $12 (rather 
than 00) in an efficient, direct manner. 

The assembler uses direct addressing on all operands 
whose first byte is the same as the direct page. You can 
denote direct addressing with the < sign if you want to 
document or be sure that direct addressing is being 
used. 

For example, if the direct page is $12: 

JSR <$15 

jumps to Address $1215. This instruction documents that 
the processor uses direct addressing. 

Similarly, you might want to use the > sign to force ex- 
tended addressing. For example: 



JSR 



>$1215 



jumps to Address $1215. The assembler and processor 
use both bytes of the operand. 

To learn more about 6809 addressing modes, read one 
of the books listed at the beginning of this manual. 
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Chapter 11/ 
Using Pseudo Ops 



As discussed earlier, pseudo ops direct the assembler. 
You can use them to: 

• Control where the program is assembled 

• Define symbols 

• Insert data into the program 

• Change the assembly listing 

• Do a "conditional" assembly 

• Include another source file in your program 

Pseudo ops are unique to the assembler you are using. 
Other 6809 assemblers may not recognize the Disk 
EDTASM pseudo ops. 

The Disk EDTASM pseudo ops make it easier for you to 
program. This chapter shows how to use pseudo ops. 

Controlling Where the 
Program is Assembled 

The Disk EDTASM has two pseudo ops that control 
where the program is assembled: 

• ORG, sets the first location 

• END, ends the assembly 

ORG 

ORG expression 

Tells the assembler to begin assembling the program at 
expression. Example: 



ORG 



$1800 



tells the assembler to start assembling the program at 
Address $1800. 

You can put more than one ORG command in a pro- 



gram. When the assembler arrives at the new ORG, it 
begins assembling at the new expression. 

END 

END expression 

Tells the assembler to quit assembling the program. The 
expression option lets you store the program's start 
address. Use END as the last instruction in all your 
assembly language programs. 

Example: 





ORG 


$1800 


DATA 


FCC 


'This is some data 


START 


LDA 


DATA 



END 



START 



The END pseudo op quits the assembly and stores the 
program's entry address (the value of START) on disk. 
When you load the program, the processor knows to 
start executing at START (the LDA instruction) rather 
than at DATA (the FCC instruction). 

FCC is a pseudo op explained later in this chapter. 



Defining Symbols 



Symbols make it easy to write a program and also make 
the program easy to read and revise. The Disk EDTASM 
has two pseudo ops for defining symbols: 

• EQU, for defining a constant value 

• SET, for defining a variable value 
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EQU 

symbol EQU expression 




Equates symbol to expression. 


Examples: 


CHAR EQU 


$F9 


equates CHAR to $F9. 




SCREEN EQU 
LDX 


$500 
*SCREEN 



equates SCREEN to $500. The next instruction loads X 
with $500. 

EQU helps set the values of constants. You can use it 
anywhere in your program. 

SET 

symbol SET expression 

Sets symbol equal to expression. You can use SET to 
reset the symbol elsewhere in the program. Example: 

SYMBOL SET 25 

sets SYMBOL equal to 25. Later in the program, you can 
reset SYMBOL. 

SYMBOL SET SYMB0L+C0UNT 

now SYMBOL equals 25 + COUNT. 

Inserting Data into 
Your Program 

The Disk EDTASM has four pseudo ops that make it 
simple for you to reserve memory and insert data in your 
program: 

• RMB, for reserving areas of memory for data 

• FCB, for inserting one byte of data in memory 

• FDB, for inserting two bytes of data in memory 

• FCC, for inserting a string of data in memory 

Remember that the processor cannot "execute" a block 
of data in your program. If you use these pseudo ops: 

• Use them at the end of your program (just before the 
END instruction), or 

• Precede them with an instruction that jumps or 
branches to the next "executable" instruction. 



RMB 

symbol RMB expression 

Reserves expression bytes of memory for data. 
Example: 



BUFFER 



RMB 



25B 



reserves 256 bytes for data, starting at Address 
BUFFER. 



DATA 



RMB 



S+SYMBOL 



reserves 6 + SYMBOL bytes for data beginning at 
Address DATA. 



FCB 

symbol FCB expression 

Stores a 1-byte expression in memory at the current 
address. The symbol is optional. 



Examples: 

DATA FCB 

stores $33 in Address DATA. 



FACTOR 



FCB 
LDA 



$33 



NUM/2 
FACTOR 



stores NUM/2 in Address FACTOR, then, loads NUM/2 
into Register A. 

FDB 

symbol FDB expression 

Stores a 2-byte expression in memory starting at the 
current address. The symbol is optional. Example: 

DATA FDB $3322 

stores $3322 in Address DATA and DATA + 1 . 

FCC 

symbol FCC delimiter string delimiter 

Stores an ASCII string in memory, beginning at the cur- 
rent address. The symbol is optional. The delimiter can 
be any character. 

Examples: 

TABLE FCC /THIS IS A STRING/ 

stores the ASCII codes for THIS IS A STRING in mem- 
ory locations, beginning with TABLE. 
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NAME 



INIT 



FCC 


'Dylan ' 


MD 


List macro definitions (default) 


FCB 


$0D 


NOMD 


Do not list macro definitions 


LDB 


*NAME 


MEX 


List macro expansions 


LDA 


NAME 


NOMEX 


Do not list macro expansions (default) 


. 




L 


Turn on the listing (default) 


• 




NOL 


Turn off the listing 


INCB 
CMPA 


NAME 


Example: 




BNE 


INIT 


OPT 


MEX 



The first instruction stores "Dylan" in the five memory 
addresses beginning with NAME. The next instructions 
process this data. 

Changing the 
Assembly Listing 

You can use three pseudo ops to change the listing the 
assembler prints for you: 

• TITLE, inserts a title at the top of each listing page 

• PAGE, ejects the listing to the next page 

• OPT, turns on or off the switches that determine how 
the assembler lists "macros" (Macros are discussed 
in the next chapter.) 

TITLE string 

Tells the assembler to print the first 32 characters of the 
string at the top of each assembly listing page. Example: 



TITLE 



Budget Program 



causes the assembler to print Budget Program as the 
title of each page in the assembly listing. 

PAGE 

Starts a new page if the assembly listing is being printed 
on the line printer. Example: 

PAGE 

tells the assembler to eject the listing to the next page. 

OPT 

OPT switch, switch, . . . 

Causes the assembler to use the specified switches 
when printing its listing. You can specify these switches 
with OPT: 

MC List macro calls (default) 

NOMC Do not list macro calls 



Causes the assembler to list the macro expansions in its 
listing. (Macros are discussed in the next chapter.) 

Conditional Assembly 

You may want to execute a certain section of your pro- 
gram only if a certain condition is true. The Disk 
EDTASM lets you set up a "conditional" section of your 
program, using these two pseudo ops: 

COND 

COND condition expression 

Assembles the following instructions only if the expres- 
sion is true (non-zero). If not true (zero), the assembler 
goes to the instruction that immediately follows the 
ENDC instruction. 

Only these operators are recognized in a condition ex- 
pression: + ,-,/,*. See ENDC below for an example. 

ENDC 

ENDC 

Ends a conditional assembly, initiated by COND. 
Examples: 

COND SYMBOL 



ENDC 

assembles the lines between COND SYMBOL and 
ENDC only if SYMBOL is not equal to zero. 

COND UALUE2-VALUE1 

ENDC 

assembles the lines between VALUE2-VALUE1 only if 
VALUE2-VALUE1 are not equal (which causes the result 
to be a non-zero value). 
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Indudina Other program. The assembler assembles the entire Included 

ii uuiuun iy vu ici fHe before assemb | jn g tne next instruction. 

Source Files Example: 

INCLUDE ROUTINE/SRC 

To let you load another source file and include it in your 

program, the Disk EDTASM offers an INCLUDE pseudo inserts and assembles ROUTINE/SRC, a source file, be- 

p fore assembling the next instruction. 

INCLUDE SUBl/SRC 

INCLUDE INCLUDE SUB2/SRC 

INCLUDE filespec inserts and assembles SUB1 , then inserts and assem- 

Inserts filespec, a file of source assembly language in- bles SUB2 ' tnen P roceeds with tne next instruction, 
structions, at the point where INCLUDE appears in the 
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Using Macros 



A macro is like a subroutine. It lets you call an entire 
group of instructions with a single program line. This 
helps when you want to use the same group of instruc- 
tions many times in the program. 

This chapter first tells how to use a macro. It then gives 
guidelines on the format of a macro. 



How to Use a Macro 



To use a macro, you must first define it. For example, 
you could define the entire sample program (from Chap- 
ter 2) as a macro named GRAPH. 

After defining the macro, you can use its name the same 
way you use a mnemonic. Whenever the assembler en- 
counters the macro's name, it expands it into the defined 
instructions. 

Defining a Macro 

To define a macro, you need to: 

• Use MACRO (a pseudo op) to begin the macro defini- 
tion and assign it a name. 

• Use source instructions to define the macro. 

• Use ENDM (a pseudo op) to end the macro definition. 

This is an example of the sample program converted into 
a macro definition: 



00030 

00100 

00110 

00120 
00130 
00140 

00150 
00160 
00180 



GRAPH 



\.A 



\.B 



MACRO 




LDA 


*$F9 


LDX 


*$400 


STA 


»X + 


CMPX 


#$600 


BNE 


\.A 


JSR 


[$A000] 


BEQ 


\.B 


ENDM 





Line 30 names the macro as GRAPH, lines 50-160 de- 
fine the macro, and line 180 ends the macro definition. 

Notice the names of the symbols within the macro def- 
inition: \.A and \.B. If you do not use this format for 
naming symbols, you'll get a MULTIPLY DEFINED SYM- 
BOL error when you call the macro more than once. 
(More on this later.) 



Insert the above program using (SHIFT) (CLEAR) to gener- 
ate the backslash character (\). Save the program on 
disk as MACR01 and then delete it. 



WD 
D#: 



MA CR01 
* (ENTER) 



(ENTEff) 



Calling a Macro 



To call a macro, simply use the macro name as if it were 
a mnemonic. For example, this sample program calls 
GRAPH and then ends: 



00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 



BEGIN 



START 



DONE 



ORG 


$1200 


JMP 


START 


FDB 


DONE-BEGIN 


INCLUDE 


MACR01/ASM 


GRAPH 




CLR 


$71 


JMP 


[$FFFE3 


END 





Line 1 50 loads MACR01 , the file containing the defini- 
tion of GRAPH, and includes it in the source program. 
Line 160 calls the GRAPH macro. 

To see how the assembler expands the GRAPHIC mac- 
ro, insert this line: 



00135 



OPT 



MEX 



and assemble the program. The assembler listing shows 
how the assembler expands GRAPH into its defined in- 
structions. 
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Note that the assembler has replaced \.A with A0000 
and \.B with B0000. The zeroes indicate that this is the 
first expansion of the symbols in GRAPH. (In this case, 
this is the only expansion.) 

Passing Values to a Macro 

A convenient way to use a macro is to pass values to it. 
You can use a macro many times in your program, pas- 
sing different values to it each time. 

This is a definition of the GRAPH macro, slightly mod- 
ified so that you can pass two values to it. Insert this 
program, save it as MACR02 and then delete it. 

00030 GRAPH2 MACRO 



00100 




LDA 


\0 


00110 




LDX 


\1 


00120 


\.A 


STA 


,X + 


00130 




CMPX 


*$G00 


00140 




BNE 


\.A 


00150 


\.B 


JSR 


C$A000] 


001B0 




BEQ 


\.B 


00190 




ENDM 





The \0 and \1 are dummy values. The assembler re- 
places these numbers with the values you specify when 
you call GRAPH. 

The following program calls GRAPH2 three times. Each 
time it passes two different sets of values: 



00100 




ORG 


$1200 


00110 


BEGIN 


JMP 


START 


00120 




FDB 


DONE-BEGIN 


00130 


8TART 


* 




00140 




OPT 


MEX 


00150 




INCLUDE 


MACR02/ASM 


00160 




GRAPH2 


#$F9 »#$400 


00170 




GRAPH2 


#$F8»#$450 


00180 




GRAPH2 


#$F7 >#$500 


00190 




CLR 


$71 


00200 




JMP 


[$FFFE] 


00210 


DONE 


* 




00220 




END 





When the assembler expands the macro, ft replaces the 
dummy values with the values passed by the macro call. 
For example, the second time GRAPH2 is called, the 
assembler replaces \0 with #$F8 and replaces \1 with 
#$450. 

Assemble the above program. Note that each time the 
assembler expands GRAPH2, it replaces the \.A and 
\.B symbols with different symbol names: First A0000 
and B0000, then A0001 and B0001 , and finally A0002 
and B0002. 



If the assembler used the same symbol names in each 
expansion, it would be forced to assign different value to 
the symbols in each expansion. You would get a MULTI- 
PLY DEFINED SYMBOL error. 

Also, note the assembler has inserted an additional sym- 
bol, NARG, in the symbol table. NARG is always set to 
the number of values passed in the most recent macro 
call. 

In the sample program, the symbol table shows that 
NARG is set to "2" at the end of the assembly. This 
shows that there were two values passed to GRAPH2 
the last time it was called. 

You might want to use NARG as a variable in your pro- 
gram. For example, you could conditionally assemble 
parts of a macro definition based on the current value of 
NARG. 

To see the program run, assemble it to disk, press a key 
three times to see different graphics and then end the 
program. 



Format of Macros 



The remainder of this chapter gives details on the format 
to use in a macro definition and macro call. 



Macro Definition 



Beginning the Definition 

Use this format for beginning the macro definition and 
assigning it a name: 

symbol MACRO 

symbol is the name of the macro. It is, of course, required. 

Using Symbols in the Definition 

Use this format to name any symbols you use within a 
macro definition: 

\.c 

c is an alpha character (A-Z). When the assembler ex- 
pands the macro, it replaces \.c with: 

cnnnn 

nnnn is a 4-digit hexadecimal number that the assembler 
increments each time the assembler expands the macro. 
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For example, if you use the symbol \.M in the macro 
definition and you call the macro 10 times, the assem- 
bler replaces \.M with these symbol names: 



1st expansion 
2nd expansion 

10th expansion 



M0001 
M0002 

M000A 



You must use this symbol-name format when calling a 
macro more than once. Otherwise, you get MULTIPLY 
DEFINED SYMBOL errors. 



#$400, replaces dummy value \2 with #$600, and, in 
two lines, replaces dummy value \0 with #$F9. Note 
that you can pass a value to a macro more than once, 
as this example does with #$F9. 

If there are more dummy values than values in a macro 
call, a byte overflow error results. 

If there are more values than dummy values in a macro 
call, the extra values are ignored. 

Be sure not to enclose dummy values in quotes. If you do 
this, the assembler treats them as ordinary characters. 



Using Dummy Values in the Definition 

Use this format for specifying dummy values within a 
macro definition: 

\n 

n is an alphanumeric character (0-9, A-Z). The assembler 
replaces this dummy value with a corresponding value in 
the macro call line: 

\0 is replaced with the 1st value 
\ 1 is replaced with the 2nd value 



\9 is replaced with the 10th value 
\A is replaced with the 1 1th value 



\Z is replaced with the 36th value 

For example, this line in a macro definition: 

LDA \B 

specifies \B as a dummy value. The assembler replaces 
\B with the 12th value in the macro call line. If the mac- 
ro call line is: 

ADD NUM0 »NUM1 »NUM2 »NUM3 »NUM4 » 
NUM5 >NUMG »NUM7 »NUM8 »NUM9 >NUMA »NUMB 

the assembler replaces \B with NUMB. 

You do not need to assign macro call values to dummy 
values in consecutive order. For example: 



GRAPHX 



GRAPHX 

MACRO 

LDX 

LDY 

LDA 

LDB 

ENDM 



»$F9 >#$400 >#*G00 

\1 
\2 
\0 
\0 



Ending the Macro Definition 

Use this format for ending the macro definition: 
ENDM 

You may not use a symbol to label this line. If you do so, 
you get a MISSING END STATEMENT error at the end 
of the assembly listing. 

Macro Call 

Use this format when passing values to a macro in a 
macro call line: 

macro call string 1, string2, ... 

macro call is the name of the macro. 

string(s) is the value being passed to the macro. It can 
be 1 to 16 characters (any extra characters are ignored). 

Each string, except the last, must be separated by a 
comma. The last string must be terminated by a comma, 
space, carriage return, or tab. 

Each string may contain any characters except a car- 
riage return. If a string contains a comma, space, tab, or 
left parenthesis, you must enclose it in parentheses. For 
example, in this macro call: 



PRINT 



(ABCDEF) 



the assembler interprets ABC.DEF as a single string. 
However, in this call: 



PRINT 



ABCtDEF 



Here, the assembler replaces dummy value \1 with 



the assembler interprets ABC as one string and DEF as 
another. 

Hints on Macros 

• Remember to define a macro before calling it. If you 
call a macro without defining it, you get a BAD 
OPCODE error. 
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• We recommend storing all macro definitions in a file cover the error until you call the macro. The assem- 
and then using INCLUDE to insert them into your bier waits until you call the macro before it assembles 
main program. it. 

• Do not use a mnemonic or pseudo op as a macro • You cannot "nest" macro definitions. That is, one 
name. This causes the assembler to redefine the macro definition cannot call another. 

dSnK' ^ PSeUd ° ° P aCCOrdinQ l ° the maCr ° • Using the same macro more than once uses a large 

amount of memory. Expand a large macro only once. 

• If the macro definition has an error, you will not dis- When you want to use it again, call it as a subroutine. 
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SECTION IV 

ROM AND DOS 
ROUTINES 



SECTION IV 



ROM AND DOS ROUTINES 



In an assembly language program, the sim- 
plest way to use the I/O devices is with ROM 
and DOS routines. This section shows how. 

Complete lists of the ROM routines and DOS 
routines are in the reference section. 
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Chapter 1 3/ 
Using the Keyboard and Video Display 

(ROM Routines) 



The Color Computer uses its own machine-code 
routines to access the screen, keyboard, and tape. 
These routines are built into the computer's ROM. You 
can use the same routines in your own program. 

Appendix F lists each ROM routine and the ROM 
address that points to it. This chapter uses two of these 
routines, POLCAT and CHROUT, as samples in show- 
ing the steps for using ROM routines. 

Steps for Calling ROM 
Routines 

We recommend these steps for calling a ROM routine: 

1. Equate the routine's address to its name. This lets 
you refer to the routine by its name rather than its 
address, making your program easier to read and 
revise. 

2. Set up any entry conditions required by the routine. 
This lets you pass data to the routine. 

3. Preserve the contents of the registers. Since many 
routines change the contents of the registers, you 
might want to store the registers' contents temporarily 
before jumping to the routine. 

4. Call the ROM routine, using the indirect addressing 
mode. 

5. Use any exit conditions that the routine passes back 
to your program. 

6. Restore the contents of the registers (if you tempo- 
rarily preserved them in Step 3). 



Sample 1 

Keyboard Input with 

POLCAT 



POLCAT "polls" the keyboard to see if you press a key. 
If you do not, POLCAT sets Bit Z. 

If you do press a key, POLCAT: 

(1 ) Clears Bit Z of Register CC and 

(2) Loads Register A with the key's ASCII code. 

This short program uses POLCAT to poll the keyboard. 
When you press a key, the program ends: 





ORG 


$1200 


BEGIN 


JMP 


START 




FDB 


DONE-BEGIN 


POLCAT 


ECU 


$A000 


START 


PSHS 


DP»CC»X»Y»U 


WAIT 


JSR 


[P0LCAT3 




BEQ 


WAIT 




PULS 


DP»CC»X»Y>U 




CLR 


$71 




JMP 


C$FFFE] 


DONE 


# 
END 





This is how we applied the above steps in writing this 
program: 

1. Equate POLCAT to its Address 

This equates POLCAT to $A000, the address that points 
to POLCAT's address: 



POLCAT 



EOU 



$A000 
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2. Set Up Entry Conditions 

POLCAT has no entry conditions. 

3. Preserve the Registers' Contents 

POLCAT's "Exit Conditions" state that POLCAT mod- 
ifies all registers except B and X. Assume that you want 
to preserve the contents of Registers DP, CC, X, Y, and 
U. To do this, you can "push" these values into the 
"hardware stack": 

PSHS DP»CC»X»Y»U 

(The hardware staGk is an area of memory, pointed to by 
Register S, that the processor uses for subroutines. 
PSHS "preserves" the contents of certain registers by 
storing them in the hardware stack.) 

4. Jump to POLCAT 

This jumps to POLCAT using its indirect address: 
WAIT JSR [POLCAT] 

5. Use Exit Conditions 

For now, assume you want to look only at the status of 
Bit Z to see if a key has been pressed: 



BEQ 



WAIT 



The above instruction branches back to WAIT (the JSR 
[POLCAT] instruction) unless you press a key. (Pressing 
a key causes POLCAT to clear Bit Z.) 

6. Restore the Register's Contents 

This "pulls" (inserts) the contents of the hardware stack 
back into the registers: 



PULS 



DP»CC >X >Y »U 



Now, the above registers are restored to the data they 
contained before executing the POLCAT routine. 



Sample 2 

Character Output with 

CHROUT 

The CHROUT routine prints a character on either the 
screen or printer. On entry, it checks two places: 



• Register A — to determine which character to 
print 

• Address $6F — to determine whether to print it 
on the screen or the printer 

This program uses CHROUT to print "This is a Mes- 
sage" on the screen. It then uses POLCAT to wait for 
you to press a key before returning to BASIC. 



ORG 


$1200 


****** Equates 


for Routines ****** 


POLCAT EQU 


$A000 


CHROUT EQU 


$A002 


DEMNUM EQU 


$SF 


************ U, 


ariable ************ 


SCREEN EQU 


00 


**# DOS Programming Convent i on *** 


BEGIN JMP 


START 


FDB 


DONE-BEGIN 


******** Print 


the Message ******** 


START LDB 


•SCREEN 


STB 


DEMNUM 


LDX 


»MSG 


PRINT LDA 


>X + 


JSR 


[CHR0UT3 


CMPA 


*$0D 


BNE 


PRINT 


********* Wait 


for a Key ********* 


INPUT PSHS 


DP »CC >X »Y ,U 


WAIT JSR 


CPOLCAT] 


BEQ 


WAIT 


PULS 


DP»CC.X»Y »U 


CLR 


$71 


JMP 


[$FFFE] 


************* 


Message ************* 


MSG FCC 


'THIS IS A MESSAGE' 


FCB 


$0D 


******** Memory for StacK ******** 


DONE * 




END 





Most of the steps we used in writing this program are 
obvious. What may not be obvious is the way we set up 
CHROUT's entry conditions, Address $6F and Register 
A. 

These lines set Address $6F to 00 (the screen): 



DEMNUM 
SCREEN 
START 



EQU 
EQU 
LDB 
STB 



$BF 
00 

wSCREEN 
DEVNUM 
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Setting Register A involves two steps. First, point Regis- 
ter X to the message: 



MSG 



FCC 'THIS IS A MESSAGE' 
FCB $0D 
LDX ttMSG 



and then load Register A with each character in the mes- 
sage: 



PRINT 



LDA 
JSR 
CMPA 
BNE 



>X + 

[CHROUT] 
«$0D 
PRINT 



Sample 3 
POLCAT and CHROUT 



This combines POLCAT with CHROUT. It prints on the 
screen whatever key you press. When you press CD 
(hexadecimal OA), the program returns to BASIC: 



ORG 
****** Equates 
POLCAT EOU 
CHROUT EOU 
DEMNUM EOU 



$1200 

for Routines 

$A000 

$A002 

$SF 



****** 



************ Variable ************ 

SCREEN EOU 00 

*** DOS P ro 3 rammin S Convention *** 



BEGIN JMP 
FOB 
********** Main 



MAIN 
DONE-BEGIN 



MAIN 



FINISH 

* Input 

INPUT 

WAIT 



** Print 
PRINT 



P ro 3 ram 
INPUT 
*$0A 
FINISH 
PRINT 
MAIN 
$71 
[$FFFE] 

' row 
DP »CC >X tY 
[POLCAT] 
WAIT 
DP»CC»X»Y 



********** 



LDB 
STB 
JSR 
RTS 

******** Me wo ry 

DONE * 

END 



JSR 

CMPA 

BEO 

JSR 

BRA 

CLR 

JMP 
Character 

PSHS 

JSR 

BEO 

PULS 

RTS 

a Character on 
#SCREEN 
DEMNUM 
[CHROUT] 



Keyboard 
»U 



Display ** 



for Stack ******** 
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Chapter 14/ 

Opening and Closing a Disk File 

DOS Routines — Part I 



Because of the organization and timing of a disk, reading 
it and writing to it are complex. This is why you'll want to 
make use of DOS routines in your disk programs. 

This chapter shows how to use DOS routines to open 
and close a disk file. The next chapter shows how to use 
them to read a disk and write to it. Reference H contains 
a complete list of all the DOS routines supported by 
Radio Shack. 



there are 256 bytes in the physical buffer, DOS sends 
them out to a disk sector. 

You need not be concerned that DOS' "physical" rec- 
ords are a different size from your program's "logical" 
records. DOS handles the "spanning" of logical records 
into physical records internally. Except for reserving 
memory for a physical buffer, you do not need to be con- 
cerned with physical records. 



Overview 



All DOS routines, like ROM routines, have their own en- 
try and exit conditions. However, most DOS routines 
have more involved entry conditions than do ROM 
routines. They require you to set up three areas in mem- 
ory: two "buffers" and a "data control block." 

Buffers 

Buffers are areas in memory that DOS uses for storing 
data to be input or output to disk. DOS requires that you 
reserve two buffers: 

• A logical buffer — This can be any length. Your pro- 
gram uses this to store data for DOS to input or output 
to disk. 

• A physical buffer — This must be 256 bytes. DOS 
uses this to hold data temporarily so that it can input 
and output the data to a disk sector in 256-byte 
blocks. 

For example, suppose you want to output 100 10-byte 
records to disk. You can send each record, one at a 
time, to the area you reserved as the logical buffer. 

DOS then transfers the records from the logical buffer to 
the area you reserved as the physical buffer. As soon as 



Data Control Block 

A data control block is a 49-byte "block" of memory that 
DOS uses to control a disk file. You need to reserve this 
block of memory for each disk file you are using. If you 
have three disk files open at the same time, you need to 
reserve three 49-byte data control blocks. 

Reference G shows how DOS uses each of the 49 
bytes, numbered 0-48, in the data control block. As you 
can see, DOS divides the data control block into 21 
data-control segments. 

Before opening a file, you must load the proper data into 
four of the segments of the data control block (DCB): 



DCB Segment DCB Address 



Filename 
(DCBFNM) 

Extension 
(DCBEXT) 



Bytes 0-7 



Bytes 8-10 



Drive Number Byte 33 
(DCBDRV) 



You must load 
with . . . 

The eight- 
character name 
of your file. 

The three 
character 
extension of 
your filename. 

The drive 
containing the 
disk file. 
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Physical 
Buffer Address 
(DCBBUF) 



Byte 36-37 



The first 
address of 
the physical 
buffer you 
have reserved. 



For example, if you want to open a file in Drive 1 , you 
need to load "1" into the DCBDRV location, which is the 
33rd byte of the data control block. 

You need not be concerned with most of the remaining 
segments of the data control block, unless you want to 
use them as data in your program. They are handled 
internally by DOS. The exceptions to this are: 

• Logical Buffer Address, Record Size, Variable Record 
Terminator, and Logical Record Number — You need 
to use these when you read and write to the file. They 
are discussed in the next chapter. 

• File Type and ASCII Flag— If you want your file to be 
compatible with BASIC and other Radio Shack pro- 
grams, you need to set these when you create the fife. 
See the "Technical Information" chapter of your Disk 
System Owners Manual and Programming Guide. 



Steps for Using DOS 
Routines 



8. Use all exit conditions. Most DOS routines return an 
error code in Register A if the routine did not work 
properly. If there were no errors, Register A contains 
a zero. 



Sample Session 

Opening and Closing 

a Disk File 

The DOS routines for opening and closing a file are 
OPEN and CLOSE. Both routines check Register U for 
the address of DCB. They expect to find the four seg- 
ments described above in this block. 

OPEN also expects you to set a file mode in Register A. 
It creates or opens an existing file depending on the 
mode you set. 

Both routines return a status code in Register A. Refer- 
ence I tells the meaning of the status codes. 

Figure 8 at the end of this chapter is a sample program 
which creates, opens, and closes a disk file named 
WORKFILE/TXT. After running this program, you can 
look at your directory to see that the program has cre- 
ated this file. This shows how we applied the above 
steps in this program. 



The steps for using DOS routines are: 

1 . Equate the routine's address (for ease in reading the 
program). 

2. Reserve memory for a physical buffer, logical buffer, 
and the DCB. 

3. Clear the DCB and the physical buffer. You need to 
make sure they do not have extraneous data. 

4. Set up all other entry conditions. Besides setting up 
registers, you need to load certain segments of the 
DCB with data. Which segments you load depends 
on the DOS routine you are using. 

5. Preserve the contents of the registers. DOS routines 
change the contents of many of the registers. To be 
safe, you should preserve all of them that you want to 
use later in your program. Be sure to preserve Regis- 
ters U and DP. If DOS changes their contents, your 
program acts unpredictably. 

6. Call the routine. 

7. Restore the contents of the registers. 



1. Equate OPEN and CLOSE 

This equates OPEN and CLOSE to $600 and $602, their 
indirect addresses: 



OPEN 
CLOSE 



EOU 
EQU 



$G00 
$G02 



2. Reserve Memory for 
Buffers and DCB 

The OPEN and CLOSE routines use only the physical 
buffer, not the logical buffer. This stores 256 bytes for 
the physical buffer and uses PBUF to label those bytes: 



PBUF 



RMB 



256 



This reserves memory for a 49-byte DCB and stores the 
filename, WORKFILE, and the extension, TXT, in the 
first 1 1 bytes: 

DCB 



EOU 


* 


FCC 


'WORKFILE 


FCC 


'TXT' 


RMB 


38 
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3. Clear DCB 

This clears all but the first 1 1 bytes of DCB: 



A to select one or more file modes: 



RCLEAR LDX 
CLEAR1 CLR 

CMPX 

BNE 

LDX 

and this clears the physical buffer: 



CLEAR2 



CLR 
CMPX 
BNE 
RTS 



«DCB+11 
»X + 

«DCB+48 
CLEAR1 
#PBUF 



»X + 

ttPBUF+255 
CLEAR2 



4. Set Up Entry Conditions 

On entry, OPEN and CLOSE require you to: (1) Set 
Register U to a DCB containing a filename, extension, 
drive number, and physical buffer address, and (2) Set 
Register A to a file mode. 

Setting Register U 

This sets Register U to the address of the first byte of 
the DCB: 



LDU 



#DCB 



The following lines set the drive number segment to 0. 
They do this by storing DRVNUM (0) into DCBDRV (33) 
+ the contents of Register U (DCB). This inserts into 
the 33rd byte of DCB: 



DCBDRV 


EQU 


33 


DRVNUM 


FCB 


00 




LDA 


DRVNUM 




STA 


DCBDRV »U 



The following lines set the physical buffer address to 
PBUF. They do this by storing the address of PBUF into 
the memory address pointed to by Register U plus 
DCBBUF. This stores PBUF in the 36th byte of DCB: 



DCBBUF 



EQU 
LDX 
STX 



3G 

*PBUF 
DCBBUF ,U 



MODE 



BIT 



Read 


BitO 


Write 


Bit 1 


Create 


Bit 2 


Extend 


Bit 3 


Work File 


Bit 4 



DECIMAL NUMBER 
(IF SET) 
1 
2 
4 
8 
16 

(delete the file, when closed) 
FAT Bit 5 32 

(rewrite to the FAT* only when closed) 
Shared Buffer Bit 6 64 

* The disk directory's FAT (file allocation table) is de- 
scribed in the "Techncial Information" chapter of the 
Disk System Manual. 

The sample program loads Register A with decimal 
1+2 + 4 + 8 + 32: 



LDA 



ttl+2+4+8+32 



This tells DOS to set the file mode to read (decimal 1), 
write (decimal 2), create (decimal 4), extend (decimal 8), 
and rewrite the FAT only when the file is closed (decimal 
32). 

5. Preserve Registers 

This preserves the contents of Registers U and DP: 

ROPEN PSHS U»DP 

6. Jump to the DOS Routine 

These lines jump to OPEN and CLOSE: 



JSR 
JSR 



[OPEN] 
[CLOSE] 



(The filename and extension were set in Step 2.) 



7. Restore Registers 

This restores the contents of Registers U and DP: 

PULS U»DP 

8. Use Exit Conditions 

The sample program branches to an error handling sub- 
routine after each DOS routine. The subroutine tests 
Register A to see if it contains a non-zero value. If so, it 



Setting Register A 

This table shows how you should set each bit in Register 
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prints the status code on the screen and waits for you to 
press a key: 



WAIT 



JSR 

TSTA 

BEQ 

STA 

JSR 

BEQ 

RETURN 



ERROR 

RETURN 

$450 

[POLCAT] 

WAIT 

RTS 



CLEAR2 CLR 
CMPX 
BNE 
RTS 
*******Routine to Open 



ROPEN 



Figure 8. Sample Program to Open and Close a File 



ORG $1200 
for DOS and ROM routines ** 
EQU $600 
EQU $602 
EOU $A000 

DCB offsets******* 
33 
36 
Conuention ***** 
MAIN 

DONE-BEGIN 
Program *#**##**##** 
RCLEAR 
ROPEN 
RCLOSE 
$71 

[$FFFE] 
Clear the DCB ****** 
Buffer ********* 
*DCB+11 
»X + 



***** Routine 
RCLOSE 



**Eiuates 
OPEN 
CLOSE 
POLCAT 
****** Equates for 
DCBDRM EOU 
DCBBUF EOU 
*****D0S ProSramminS 
BEGIN JMP 
FDB 
************Main 
MAIN JSR 
JSR 
JSR 
CLR 
JMP 
******Routine to 
******** and Physical 
RCLEAR LDX 
CLEAR1 CLR 



#**##**E rror 
ERROR 



WAIT 



PSHS 

LDU 

LDA 

STA 

LDX 

STX 

LDA 

JSR 

PULS 

JSR 

RTS 

to Close 

PSHS 

LDU 

JSR 

PULS 

JSR 

RTS 
Hand 1 in i 

TSTA 

BEQ 

STA 

JSR 

BEO 

RTS 
r Buffers 

RMB 



CMPX 

BNE 

LDX 



#DCB+48 

CLEAR1 

sPBUF 



RETURN 
*** Memory f o 

PBUF 
********Memory for Mar 

DRVNUM FCB 

***********Memo ry for 

DCB EQU 

FCC 

FCC 

RMB 

##***#**********#***** 

DONE EQU 

END 



>X + 

#PBUF+255 
CLEAR2 

a File ******* 
U»DP 
«DCB 
DRYNUM 
DCBDRY ,U 
#PBUF 
DCBBUF ,U 
#1+2+4+8+32 
[OPEN] 
U»DP 
ERROR 

the File ****** 
U »DP 
#DCB 
[CLOSE] 
U »DP 
ERROR 

Routine ******* 

RETURN 
$450 
[POLCAT] 
WAIT 

and StacKs **** 

256 
iables ******** 

00 
DCB *********** 

* 

'WORKFILE' 

'TXT' 

38 
**#*******##**# 

* 
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Chapter 15/ 

Reading and Writing a Disk File 

DOS Routines — Part 2 



DOS has a WRITE routine for writing to a file and a 
READ routine for reading it back into memory. The way 
you use these routines depends on which method you 
are using to access the file: 

• Sequential Access 

• Direct Access 

This chapter describes how to use these two methods in 
their simplest forms. You can use any variation of them 
that you want. 



When reading data from just one file, you need only 
specify the logical buffer address, not the terminator 
character. DOS reads the terminator character from the 
disk's directory into DCBTRM. 

Figure 9 at the end of this ch apter is a program that 
writes to a file using $0D (the (ENTER) character) as a 
terminator character. Figure 10 reads the same file back 
into memory. 



Sequential vs. Direct Access 

Sequential Access 

(For Files with Variable-Length Records) 

Sequential access lets you read and write to files with 
variable-length records. Using this method, you insert a 
terminator character at the end of each record. This 
character tells DOS where each record ends. 

Before writing data to the file, you must load DCB with 
the following: 



DCB Segment DCB Address 



Logical 

Buffer Address 
(DCBLRB) 



Terminator 

Character 

(DCBTRM) 



Bytes 39-40 



Byte 19 



You must 
load with. . . 

The first 
address of the 
logical buffer 
you have 
reserved 

The character 
you select 
to end each 
record 



Direct Access 

(For Files with Fixed-Length Records) 

Direct access works only with files containing fixed- 
length records. With this method, DOS uses the record 
size and record number to access the record. 

Before reading data from the file or writing data to it, you 
must set this DCB segment: 



DCB Segment DCB Address 



Logical 

Buffer Address 
(DCBLRB) 



Bytes 39-40 



You must 
load with . . 

The address 
of the first 
byte of the 
logical buffer 
you have 
reserved 



Unless you are using the record size already in the file's 
directory, you must also set: 



Logical Record 
Size (DCBRSZ) 



Bytes 17-18 



The size of 
each record 



65 
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If you want to write a record which is not sequentially the 
next one, you must also set: 



Logical 

Record Number 
(DCBLRN) 



Bytes 46-47 



The number of 
the record 
you want to 
access 



Setting the 
Read/Write Option 

DOS requires that you set Register A with a "read/write 
option" before entering the READ or WRITE routines. 
The read/write option lets you specify: 

• Whether you want direct or sequential access 

• Whether you want DOS to point to the next record 
after reading or writing the record 

To set the read/write option, load the first two bits of 
Register A with one of these four values: 



Bits 

00 

01 
10 

11 



Decimal 
Number 



Read/Write Option 

Direct Access 
Point to next record 

Sequential Access 
Point to next record 

Direct Access 

Do not point to next record 

Sequential Access 

Do not point to next record 

For example: 

LDA «2 

JSR [READ] 

tells DOS to write the record sequentially (up to the ter- 
minator character). When finished, DOS points to the 
next sequential record. 

Figure 9. Sample Program to Write to a File 



## 





ORG 




$1200 




**E<quates for 


DOS 


and ROM 


routines 


OPEN 


EOU 




*B00 




CLOSE 


EOU 




$B02 




WRITE 


EQU 




$60G 




POLCAT 


EOU 




*A000 





****** Equates for DCB offsets******* 


DCBTRM EOU 


13 


DCBDRU EQU 


33 


DCBBUF EOU 


3G 


DCBLRB EOU 


39 


*****D0S P roarammin 3 Convention ***** 


BEGIN JMP 


MAIN 


FDB 


DONE-BEGIN 


*#**»####**#Main 


Program ************ 


MAIN JSR 


CLEAR 


JSR 


INTDCB 


JSR 


SOPEN 


JSR 


SPRINT 


JSR 


SWRITE 


JSR 


SCLOSE 


CLR 


$71 


JMP 


[$FFFE] 


******Routine to 


Clear the DCB ****** 


and the Physical 


and Logical Buffers 


CLEAR LDX 


#PBUF 


CLEAR1 CLR 


»X + 


CMPX 


©PBUF+255 


BNE 


CLEAR1 


LDX 


«LBUF 


CLEAR2 CLR 


»X + 


CMPX 


*LBUF+24 


BNE 


CLEAR2 


LDX 


»DCB+11 


CLEAR3 CLR 


»X + 


CMPX 


*DCB+48 


BNE 


CLEAR3 


RTS 




********* Routine 


to Insert********** 


********* Mai ues 


in the DCB ********** 


INTDCB LDU 


#DCB 


LDA 


DRMNUM 


STA 


DCBDRV tU 


LDA 


#$0D 


STA 


DCBTRM »U 


LDX 


#PBUF 


STX 


DCBBUF »U 


LDX 


#LBUF 


STX 


DCBLRB »U 


RTS 




*******Routine to 


Open a File ******* 


SOPEN LDU 


#DCB 


PSHS 


U»DP 


LDA 


wl+2+4+8+32 


JSR 


[OPEN] 


PULS 


U .DP 


JSR 


ERROR 


RTS 




****#***Rout ine to Print MsS ******** 
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SPRINT LDY #$500 

LDX »MSG 

CHAR LDA »X + 

STA »Y+ 

CMPA *$3A 

BNE CHAR 

LDX *LBUF 

LDY *$525 
******* Routine to Input Data**** 
*********** from Keyboard******** 



**** 
**** 



SINPUT 
HAITI 



ENDINP 



PSHS 

JSR 

BEO 

PULS 

STA 

STA 

CMPA 

BEO 

CMPX 

BNE 

RTS 



U »DP »Y 
CPOLCAT] 
WAIT1 
U»DP»Y 
>Y + 
»X + 
«$0D 
ENDINP 
*LBUF+24 
SINPUT 



******* Rout ine to Write Data**** 
************** to File*********** 
SWRITE PSHS U.DP 

LDU #DCB 

LDA *1 

JSR [WRITE] 

PULS U.DP 

JSR ERROR 

RTS 
******* Routine to 
SCLOSE PSHS 

LDU 

JSR 

PULS 

JSR 

RTS 
*#*****Error Handling 



**** 
**** 



Close 
U.DP 
#DCB 
[CLOSE] 
U.DP 
ERROR 



File ******** 



Routine ******* 



ERROR 



TSTA 

BEO 

STA 

JSR 

BEO 

RTS 



WAIT2 

RETURN 
*** Memory for 
PBUF RMB 
LBUF RMB 

********* Memory 
DRUNUM FCB 

***#*******Memo tv 

DCB EOU 

FCC 

FCC 

RMB 



RETURN 
$450 
[POLCAT] 
WAIT2 

Buffers and Stacks**** 

256 

25 
for Variables ******** 

00 
for DCB *********** 

* 

'WORKFILE' 

'TXT' 

38 



*********Memo ry for Message ********* 
MSG FCC 'ENTER YOUR NAME:' 

************#***#**#***********#***** 
DONE EOU * 
END 

Figure 10. Sample Program to Read to a File 

Note: When running this program, a status code 

(generated by the Error subroutine) may appear 
on your screen. Press any key to continue 
program execution. 



ORG 
**E<=iuates for 
OPEN 
CLOSE 
READ 
POLCAT 
CHROUT 

****** Equates f o r 
DEVNUM 
SCREEN 
DCBTRM 
DCBDRV 
DCBBUF 
DCBLRB 

*****D0S 
BEGIN JMP 

FDB 
*********#**Main 
MAIN JSR 

JSR 

JSR 

JSR 

JSR 

JSR 

CLR 

JMP 
******Routine to 
and the Physical 
CLEAR 
CLEAR1 



routines ** 



CLEAR2 



CLEAR3 



$1200 
DOS and ROM 
EOU $600 
EOU $602 
EOU $604 
EOU $A000 
EOU $A002 

DCB offsets******* 
EOU $6F 
EOU 
EOU 19 
EOU 33 
EOU 36 
EOU 39 
Programming Convention ***** 

MAIN 

DONE-BEGIN 
Program ************ 

CLEAR 

INTDCB 

SOPEN 

SREAD 

SCLOSE 

SPRINT 

$71 

[$FEEE] 
Clear the DCB ****** 
and Logical Buffers 
LDX *PBUF 
CLR .X + 
CMPX #PBUF+255 
BNE CLEAR1 
LDX »LBUF 
CLR »X + 
CMPX «LBUF+24 
BNE CLEAR2 
LDX ttDCB+11 
CLR »X+ 
CMPX »DCB+48 
BNE CLEAR3 
RTS 
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********* Routine to Insert********** 
********* Values in the DCB ********** 



INTDCB LDU 


*DCB 


LDA 


DRMNUM 


STA 


DCBDRU»U 


LDA 


»*0D 


STA 


DCBTRM»U 


LDX 


*PBUF 


STX 


DCBBUF.U 


LDX 


«LBUF 


STX 


DCBLRBtU 


RTS 




*******Routine 


to Open a File ******* 


SOPEN PSHS 


U»DP 


LDU 


#DCB 


LDA 


«$2F 


JSR 


COPEN] 


PULS 


U.DP 


JSR 


ERROR 


RTS 




*******Rout ine 


to Read a File ******* 


SREAD PSHS 


U»DP 


LDU 


«DCB 


LDA 


«3 


JSR 


CREAD3 


PULS 


U»DP 


JSR 


ERROR 


RTS 




******* Routine 


to Print Data******** 


SPRINT LDB 


•SCREEN 


STB 


DEVNUM 


LDX 


• LBUF 


PRINT LDA 


,y,+ 



JSR CCHROUT] 

CMPX #LBUF+24 

BNE PRINT 

HAITI JSR CPOLCAT] 

BEQ WAITl 

RTS 
******* Routine to Close File******** 

SCLOSE PSHS U,DP 

LDU «DCB 

JSR [CLOSE] 

PULS U»DP 

JSR ERROR 

RTS 
*******Error Handling Routine ******* 
ERROR TSTA 

BEQ RETURN 

STA $450 

WAIT2 JSR CPOLCAT] 

BEQ WAIT2 
RETURN RTS 

*** Memory for Buffers and StacKs **** 

PBUF RMB 256 

lBUF RMB 25 

********Mewory for Variables ******** 

DRVNUM FCB 00 

*********#*Memo ry for DCB *********** 

DCB EQU * 

FCC 'WORKFILE' 

FCC 'TXT' 

RMB 38 
*#*******#***************#**##*##*#** 

DONE EQU * 

END 
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SECTION V/ 



REFERENCE 



v/ 



This section summarizes all the features of the 
Disk EDTASM. 
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Reference A/ 
Editor Commands 

Definition of Terms 



line 

A line number in the program. Any lines between 0-63999 may be used. These symbols may be used: 

# First line in the program 

* Last line in the program 
Current line in the program 

current line 

The last line inserted, edited, or printed. 

startline 

The line where an operation will begin. In most commands startline is optional. If startline is omitted, the current line is 
used. 

An asterisk (*) denotes a comment line when used as the first character in the line. 

range 

The line or lines to use in an operation. If the range includes more than one line, they must be specified with one of 
these symbols: 

to separate the startline from the ending line 
to separate the startline from the number of lines 

increment 

The increment to use between lines. In most commands, increment is optional. If the increment is omitted, the last 
specified increment is used. On startup, increment is set to 10. 

filespec 

A DOS disk file specification in the format: 

filename/ext:drive 



COMMANDS PAGES 

DISCUSSED 
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A / EDITOR COMMANDS 



Cstartline, range, Increment 

Copies range to a new location beginning with startline using the specified increments, start- 
line, range, and increment must be included. 

C500»100:150»10 

Drange 

Deletes range. If range is omitted, current line is deleted. 



D100 



D100: 150 



E/ine 

Enters a line for editing. If line is omitted, current line is used 

E100 E 
These are the editing subcommands 



A 
nCstring 

nD 

E 

H 

I string 

K 

L 
nScharacter 

X 

(ENTER) 



n (SPACEBAR ) 

n© 



Cancels all changes and restarts the edit. 
Changes n characters to string. If n is omitted, changes 
the character at the current cursor position. 
Deletes n characters. If n is omitted, deletes character at 
current cursor position. 

Ends line editing and enters all changes without display- 
ing the rest of the line. 
Deletes rest of line and allows insert. 
Inserts string starting at the current cursor p osition- 
Whil e in the mode, © deletes a character, and (SHIFT) 
CD (ESCAPE) ends the mode. 

Deletes all characters from the current cursor position to 
the end of the line. 
Lists current line and continues edit. 
Searches for nth occurrence of character. If n is omitted, 
searches for the first occurrence. 
Extends line. 

Ends line editing, enters all changes and displays the 
rest of the line. 
Escapes from subcommand. 

Moves cursor n positions to the right. If n is omitted, 
moves one position. 

Moves cursor n positions to the left. If n is omitted, 
moves the cursor one position. 



Fstr/ng 

Finds the string of characters. Search begins with the current line and ends each time string is 
found. If string is omitted, the last string defined is used. 



FABC 



Hrange 

Prints range on the printer. If range is omitted, the current line is printed. 



H100 



H100:200 



\startline,increment 

Inserts lines up to 127 characters long beginning at startline, using the specified increment, 
startline and increment are optional. 



1150.5 



1200 



I ,10 
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K 

Returns to DOS. 

LCA filename 

Loads filename from tape into the edit buffer. A is optional. If included, filename is appended to 
the edit buffer. If filename is omitted, the next tape file is loaded. 

LC SAMPLE/EXT LCA SAMPLE/EXT 

LDA fllespec 

Loads the specified file from disk into the edit buffer. A is optional. If included, filespec is 
appended to the current contents of the edit buffer. If extension is omitted, /ASM is used. 

LD SAMPLE/EXT LDA SAMPLE/EXT 

Mstartline, range, Increment 

Move command, works like copy except the original lines are deleted. 

tistartline, Increment 

Renumbers beginning at startline, using the specified increment, startline and increment are 
optional. 

N100»50 N100 N 

O 

Shows the hexadecimal values of (1) the first available memory address, (2) the last available 
address, and (3) USRORG, the address where the assembler originates an /IM assembly with 
the /MO switch. Then, prompts you to change USRORG. 



Prange 

Displays range on the screen. 

P100:200 P100I5 P* P+ 

P (Prints 15 lines to the screen) 

Q 

Returns to BASIC. 

R startline, increment 

Allows you to replace startline and then insert lines using increment, startline and increment 
are optional. 

R100.10 R100 R 

S 

Shows the current printer parameters and lets you change them. 

Trange 

Prints range to the printer, without line numbers. 

T100 T100:500 

y/fllename 

Verifies filename (a tape file) to ensure that it is free of checksum errors. Works like BASIC'S 
SKIPF command. If filename is omitted, this command verifies the next file found. 

WC filename 

Writes filename to tape. If filename is omitted, NONAME is used. 
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WD filespec 

Writes filespec to disk. If the extension is omitted, ASM is used. 

WD SAMPLE/EXT 

Z 

Jumps to ZBUG (EDTASM system only). 

CX> 

Scrolls up in memory. 

CD 

Scrolls down in memory. 

(SHIFT) (CLEAR) 

Is used to create a backslash (\). 
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Reference B/ Assembler 
Commands and Switches 



COMMANDS 



PAGES 
DISCUSSED 



AC filename switch . . . 

Assembles the source program into machine code. If you specify the /IM switch, the assembly 
is in memory. If you specify filename, the assembly is saved on tape as filename. If you omit 
both filename and switch, the assembly is saved on tape as NONAME. 

AD fllespec switch . . . 

Assembles the source program into machine code. Either the /IM switch or filespec is required: 

With /IM, the assembly is in memory; with filespec, the assembly is on disk. The D is optional. 

There must be a space between filespec and switch. 

The switches are: 



/AO 

/IM 

/LP 

/MO 

/NL 

/NO 

/NS 

/SR 

/SS 

/WE 

/WS 

Examples: 



Absolute origin. (Applies only If /IM is set.) 

In-memory assembly. 

Assembly listing on the printer. 

Manual origin. (Applies only if /IM is set.) 

No listing printed. 

No object code generated. 

No symbol table generated. 

Single record. 

Short screen. 

Wait on assembly errors. 

With symbots. 



AD SAMPLE 

AD/IM/AO 

AD SAMPLE /WE/SR 

A SAMPLE/TST /WE 

AC SAMPLE 

AC 
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Reference C/ 
ZBUG Commands 

Definition of Terms 

expression 

One or more numbers, symbols, or ASCII characters. If more than one is used, you may separate them with these 
operators: 



Multiplication 


* 


Addition 


+ 


Division 


.DIV 


Subtraction 


— 


Modulus 


.MOD 


Equals 


.EQU 


Shift 


< 


Not Equal 


.NEG 


Local And 


.AND 


Positive 


+ 


Exclusive Or 


.XOR 


Negative 


- 


Logical Or 


.OR 


Complement 


.NOT 



address 

A location in memory. This may be specified as an expression using numbers or symbols. 

filename 

A BASIC cassette file specification. 

filespec 

A DOS file specification. (The same as a BASIC specification.) 



COMMANDS PAGES 

DISCUSSED 



c 

Continues execution of the program after interruption at a breakpoint. 

D 

Displays all breakpoints that have been set. 

E 

Exits ZBUG and enters the editor. (This applies to the EDTASM ZBUG only, not to Stand- 

Alone ZBUG.) 

Gaddress 

Executes the program beginning at address. 
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C / ZBUO COMMANDS 



K 

Returns to DOS. (Applies to Stand-Alone ZBUG only.) 

LC filename address 

Loads filename from tape. The optional address offsets the file's loading address. If filename is 
omitted, the next file is loaded. 

LD filespec address 

Loads filespec from disk. The optional address offsets the file's loading address. 

LDS filespec addressl address2 

Loads filespec from disk with its appended symbol table. The optional addressl offsets the 
file's loading address. The optional address2 offsets the symbol table's loading address. Note 
that address2 does not offset the values of the symbols. The D is optional. 

PC filename start address end address execution address 

Saves memory from start address to end address to tape. You must also specify an execution 
address, the first address to be executed when the file is loaded. Filename is optional; if 
omitted, NONAME is used. 

PD filespec start address end address execution address 

Saves memory to disk from start address to end address. You must also specify an execution 
address, the first address to be executed when the file is loaded. (The D is optional.) 

PDS filespec start address end address execution address 

Saves memory to disk from start address to end address, with the current appended symbol 
table. You must also specify an execution address, the first address to be executed when the 
file is loaded. (The D is optional.) 

Q 

Returns to BASIC. (Applies to Stand-Alone ZBUG only.) 

R 

Displays the contents of all the registers. 

Taddressl address2 

Displays the memory locations from addressl to address2, inclusive. 

JHaddressI address2 

Prints the memory locations from addressl to address2, inclusive. 

Usource address destination address count 

Transfers the contents of memory beginning at source address and continuing for count bytes 
to another location in memory beginning with destination address. 

^filename 

Verifies date on the specified file or, if no filename is specified, the next file on tape. 

Xaddress 

Sets a breakpoint at address. If address is omitted, the current location is used. Each break- 
point is assigned a number from to 7. The first breakpoint set is assigned as Breakpoint 0. A 
maximum of eight breakpoints may be set at one time. 

Yn 

Deletes the breakpoint referenced by the n number. If n is omitted, all breakpoints are deleted. 
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Examination Mode Commands 

A ASCII Mode 

B Byte Mode 

IUI Mnemonic Mode 

W Word Mode 
(The default is M) 

Display Mode Commands 

H Half Symbolic 

N Numeric 

S Symbolic 
(The default is S) 

Numbering System Mode Commands 

Obase Output 

Ibase Input 

(Base can be 8, 10, or 16. The default is 16) 

Special Symbols 
address/ 
register/ 

Opens address of register and displays its contents. 

If address or register is omitted, the last address opened will be reopened. After the contents 

have been displayed, you may type: 

new va lue To change the contents. 

(ENTER) To close and enter any change. 

(BREAK) To close and delete any change. 

CD To open next address and enter any change. 

CD To open preceding address. 

address © To branch to the address pointed to by the instruction 

beginning at address. If address is omitted, the current 

address is used. 
; To force numeric display mode. 

= To force numeric and byte modes. 

: To force flags.* 

To force ASCII mode. 

address, 

Executes address, if address is omitted, the next instruction is executed. 

expression = 

Calculates expression and displays the results. 

* The colon does not actually have anything to do with the CC (status flag) register. It simply 
interprets the contents of the given address AS IF it contained flag bits. 
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Reference D/ EDTASM Error Messages 



These are error messages you can get while in EDTASM or EDTASMOV: 



BAD BREAKPOINT (ZBUG) 

You are attempting to set a breakpoint (1) greater than 
7, (2) in ROM, (3) at a SWI command, (4) at an address 
where one is already set. 

BAD COMMAND {Editor) 

An illegal command letter was used on the command 
line. 

BAD COMMAND (ZBUG) 

You are not using a ZBUG command. 

BAD FILE DESCRIPTOR (Disk,ZBug) 

The filespec is not in the proper DOS format. See "About 
This Manual" at the beginning of this manual for the 
proper file specification format. 

BAD LABEL (Assembler) 

The symbol you are using is (1) not a legal symbol, (2) 
not terminated with either a space, a tab, or a carriage 
return, (3) has been used with ORG or END, which do 
not allow labels, or (4) longer than six characters. 

BAD MEMORY (Assembler) 

You are attempting to do an in-memory assembly that 
would (1) overwrite system memory (an address lower 
than $1200) (2) overwrite the edit buffer of the symbol 
table, (3) go into the protected area set by USROG, or 
(4) go over the top of RAM. 

If using the /AO switch, check to see that you've in- 
cluded an ORG instruction. When using /MO, check the 
addresses you set for BEGTEMP and USRORG. This 
could also be caused by the data not being stored cor- 
rectly because of some code generated by an in- 
memory assembly. See Chapter 7 for more information. 

BAD MEMORY (ZBUG) 

The data did not store correctly on a memory modifica- 
tion. This error will occur if you try to modify ROM 
addresses or try to store anything beyond MAXMEM. 



BAD OPCODE (Assembler) 

The op code is either not valid or is not terminated with a. 
space, tab, or carriage return. 

BAD OPERAND (Assembler) 

There is some syntax error in the operand field. See 
Section III for the syntax of assembly language instruc- 
tions. 

BAD PARAMETERS (Editor,ZBug) 

Usually this means your command line has a syntax 
error. 

BAD PARAMETERS (ZBUG) 

You have specified a filename that has more than eight 
characters. 

BAD RADIX (ZBUG) 

You have specified a numbering system other than 10, 8 
or 16. 

BUFFER EMPTY (Editor) 

The specified command requires that there be some text 
in the Edit Buffer, and there isn't any. 

BUFFER FULL (Editor) 

There is not enough room in the edit buffer for another 
line of text. 

BYTE OVERFLOW (Assembler) 

There is a field overflow in an 8-bit data quantity in an 
immediate operand, an offset, a short branch, or an FCB 
pseudo op. 

DIRECTORY FULL (Disk) 

The directory does not have enough room for another 
entry. Use another diskette or delete a file (using the 
BASIC KILL command). 

DISK FULL (Disk) 

The diskette does not have enough room for another file. 
Use another diskette or delete a file (using the BASIC 
KILL command). 
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□ / EDTASM ERROR MESSAGES 



DISK WRITE PROTECTED (Disk) 

You are attempting to write to a diskette that has the 
write-protect notch covered. Remove the write-protect 
label or use another diskette. 

DOS ERROR (Disk) 

This indicates an internal DOS error. It usually means 
either the DOS or the Editor/Assembler has been mod- 
ified by the user program with harmful results. 

DP ERROR (Assembler) 

Direct Page error. The high order byte of an operand 
where direct addressing has been forced (,) does not 
match the value set by the most recent SETDP pseudo 
op. 

DRIVE NOT READY (Disk) 

The drive is not connected, powered up, working proper- 
ly, or loaded properly. 

END OF FILE (Disk) 

Your program is attempting to access a record past the 
end of the file. 

ENDC WITHOUT COND (Assembler) 

The pseudo op ENDC was found without a matching 
COND having previously been encountered. 

ENDM WITHOUT MACRO (Assembler) 

The pseudo op ENDM was found without a matching 
MACRO having previously been encountered. 

EXPRESSION ERROR (Assembler and ZBUG) 

Either the syntax for the expression is incorrect (check 
Chapter 9) or the expression is dividing by zero. 

FILE NOT FOUND (Disk) 

The file is not on the disk's directory. 

FM ERROR (Editor, ZBUG and Disk) 

File Mode Error. The file you are attempting to load is 
not a TEXT file (if in the Editor) or a CODE file (if in 
ZBUG). 

ILLEGAL NESTING (Assembler) 

Illegal nesting conditions include the following: 

1 . Nested macro definitions. 

2. Nested macro expansions. 

3. Nested INCLUDE pseudo ops. 

4. INCLUDE nested within a macro definition. 

I/O ERROR (Editor, ZBUG and Disk) 

Input/Output error. A checksum error was encountered 



while loading a file from a cassette tape. The tape may 
be bad, or the volume setting may be wrong. Try a high- 
er volume. 

MACRO FORWARD REFERENCE 
(Assembler) 

A reference to the macro, which is defined on the current 
line, occurs previous to the macro definition. 

MACRO TABLE FULL (Assembler) 

The macro table is full, any additional entries will over- 
write the symbol table. This happens when all memory 
allocated for the edit buffer, macro table, and symbol 
table has been used. Adjust USRORG using the Origin 

(0) command. (See the Chapter 7.) 

MISSING END (Assembler) 

Every assembly language program must have END as 
its last command. 

MISSING INFORMATION (Assembler) 

(1) There is a missing delimiter in an FCC pseudo op or 

(2) there is no label on a SET or EQU pseudo op. 

MISSING OPERAND (Assemble r,ZBug) 

The command requires one or more operands. 

MULTIPLY DEFINED SYMBOL (Assembler) 

Your program has defined the same symbol with differ- 
ent values. If the error occurs in a macro expansion, use 
the /.1 notation to name the symbols. See Chapter 12. 

NO ROOM BETWEEN LINES (Editor) 

There is not enough room between lines to use the in- 
crement specified. Specify a smaller increment or re- 
number (N) the text using a larger increment. Remember 
that the last increment you used is kept until you specify 
a new one. 

NO SUCH LINES (Editor) 

The specified line or lines do not exist. 

REGISTER ERROR (Assembler) 

(1) No registers have been specified with a PSH/PUL 
instruction, (2) a register has been specified more than 
once in a PSH/PUL instruction, or (3) there is a register 
mismatch with an EXG/TFR instruction. 

SEARCH FAILS (Editor) 

The string specified in the Find (F) command could not 
be found in the edit buffer beginning with the line speci- 
fied. If no line is specified the current line is used. 
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SYMBOL TABLE OVERFLOW {Assembler) 

The symbol table is extending past USRORG into the 
protected area of user memory. Adjust USRORG using 
the O command. See Chapter 7. 



SYNTAX ERROR (Assembler) 

There is a syntax error in a macro dummy argument. 

UNDEFINED SYMBOL (Assembler,ZBug) 

Your program has not defined the symbol being used. 
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Reference E/ 
Assembler Pseudo Ops 

Definition of Terms 

symbol 

Any string from one to six characters long, typed in the symbol field. 

expression 

Any expression typed in the operand field. See Reference C, "ZBUG commands," for a definition of valid expressions. 



COMMANDS PAGES 

DISCUSSED 



COND expression 

Assembles the instructions between COND and ENDC only if expression is true (a non-zero 
value). 





COND 


SYMBOL 


SYMBOL 


FOB 


10 


VALUE 


FOB 


5 




COND 


SYMBOL-VALUE 



Valid operators for a conditional expression are +,-,/, *. If the expression equals zero, it is 
false; if non-zero, it is true. 

END expression 

Ends the assembly. The optional expression specifies the start address of the program. 

ENDC 

Ends a conditional assembly. 

ENDM 

Ends a macro definition. 

symbol EQU expression 

Equates symbol to an expression. 

SYMBOL EQU $5000 
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E / ASSEMBLER PSEUDO OPS 



symbol FCB expression, . . . 

Stores a 1 -byte expression beginning at the current address. 

DATA2 FCB $33+C0UNT 

symbol FCC delimiter string delimiter 

Stores string in memory beginning with the current address. The delimiter can be any 
character. 

TABLE FCC /THIS IS A STRING/ 

symbol FDB expression 

Stores a 2-byte expression in memory begining at the current address. 

DATA FDB $3322 

INCLUDE source fllespec 

Includes source filespec in the current position of the source program. 

INCLUDE SAMPLE/ASM 

symbol MACRO 

Defines the instructions between MACRO and ENDM as a macro named symbol. 

DIVIDE MACRO 

OPT switch, . . . 

Uses switch to control the listing of macros when assembling the program. The switches are: 

MC List macro calls (default) 

NOMC Do not list macro calls 

MD List macro definitions (default) 

NOMD Do not list macro definitions 

MEX List macro expansionns 

NOMEX Do not list macro expansions (default) 

L Turn on the listing (default) 

NOL Turn off the listing 



ORG expression 

Originates the program at expression address. 

ORG $3F00 

PAGE 

Ejects the assembly listing to the next page. 

RMB expression 

Reserves expression bytes of memory for data. 

DATA RMB $06 

symbol SET expression 

Sets or resets symbol to expression. 

SYMBOL SET $3500 
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SETDP expression 

Sets the direct page to expression. 

SETDP $20 

TITLE string 

Prints string as the title of each page of the assembly listing. String can be up to 32 
characters. 

TITLE Prosrram 1 
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Reference F/ 
Rom Routines 



This reference lists the indirect addresses where the Color Computer's ROM routines are stored. It also shows the 
entry and exit conditions for each routine. 

The name of the routine is for documentation only. To jump to the routine, you must use its indirect address (the 
address contained in the brackets). 



COMMANDS PAGES 

DISCUSSED 



BLKIN = [$A006] 

Reads a block from a cassette. 
Entry Conditions: 

Cassette must be on and in bit sync (see CSRDON). 
CBUFAD contains the buffer address. 
Exit Conditions: 

BLKTYP, located at $7C, contains the block type: 

0=file header 

1=data 

FF = end of file 
BLKLEN, located at $7D, contains the number of data bytes in the block (0-255): 
Bit Z in the Register CC, Register A, and CSRERR, located at Address $81 , contains the 
error: 

Z = 1, A = CSRERR = (if no errors) 

Z = 0, A = CSRERR = 1 (if a checksum error occurs) 

Z = 0, A = CSRERR = 2 (if a memory error occurs) 

BLKOUT = [$A008] 

Writes a block to cassette. 
Entry Conditions: 

If this is the first block write after turning the motor on, the tape should be up to speed 

and a $55s should be written first. 

CBUFAD, located at $7E, contains the buffer address. 

BLKTYP, located at $7C, contains the block type. 

BLKLEN, located at $7D, contains the number of bytes. 
Exit Conditions: 

Interrupts are masked. 

X = CBUFAD + BLKLEN. 

All registers are modified. 
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F / ROM ROUTINES 



CHROUT = [A002] 

Outputs a character to a device. 
Entry Conditions: 

Register A = character to be output 

Address 6F (DEVNUM) = the device (-2 = printer; = screen) 
Exit Conditions: 
Register CC is changed; all others are preserved. 

CSRDON = [$A004] 

Starts the cassette and gets into bit sync for reading. 
Entry Conditions: 

None 
Exit Conditions: 

FIRQ and IRO are masked. 

Registers U and Y are preserved. All others are modified. 

JOYIN = [$A00A] 

Samples the four joystick pots and stores their values in POTVAL through POTVAL + 3. 

Left Joystick: 

Up/Down 1 5A 

Right/Left 15B 

Right Joystick: 

Up/Down 15C 

Right/Left 15D 

For Up/Down, the minimum value equals Up. 

For Right/Left, the minimum value equals Left. 

POLCAT = [A000] 

Polls the keyboard for a character. 
Entry Conditions: 

None 
Exit Conditions: 

If no key is seen — Flag Z = 1 , Register A = 
If a key is seen — Flag Z = 0, Register A = key code 
Registers B and X are preserved. 
All other registers are modified. 
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Reference G/ 
DOS Disk Data Control Block (DCB) 

DOS uses a 49-byte DCB to access a disk file. This reference shows the contents of each of 
the bytes (Bytes 0-48) in the DCB. 

Bytes 0-31 

The first 32 bytes of the DCB correspond to the disk file's 32-byte directory entry. When 
creating a file, DOS writes the DCB's first 32 bytes to the directory. 

When opening an existing file, DOS searches each directory entry for the filename and exten- 
sion you have set in the DCB. If it finds a match, it overwrites the first 32 bytes of the DCB with 
the 32-byte directory entry. 

When you close the file, DOS overwrites the directory entry with the first 32 bytes of the DCB. 

Filename (DCBFNM) Bytes 0-7 

Contains the name of the file you want to access. You must set this value. 

Extension (DCBFNM) Bytes 8-10 

Contains the extension of the file you want to access. You must set this value. 

File Type (DCBFTY) Byte 1 1 

Contains the type of file you want to access. DOS ignores this, but BASIC uses it. You need to 
set this value when creating the file if you want the file compatible with BASIC. 

ASCII Flag (DCBASC) Byte 12 

Contains a flag if the file is in ASCII format. DOS ignores this, but BASIC uses it. You need to 
set this value when creating the file if you want the file compatible with BASIC. 

First Cluster ([DCBFCL) Byte 1 3 

Contains the number of the first cluster in the file. (When you first create a file, this contains 
$FF.) DOS sets this value. Do not change it. 

First Sector Bytes (DCBNLS) Bytes 14-15 

Contains the number of bytes used in the first sector of the file. DOS ignores this. However, to 
be compatible with BASIC files, you should set this value before closing an output file. 

File Mode (DCBCFS) Byte 16 

Contains the mode you specified with Register A in the OPEN, WRITE, or READ routine. DOS 
sets this value. 



91 



G / DOS DATA CONTROL BLOCK CDCB1 



Record Size (DCBRSZ) Bytes 17-18 

Contains the size of each record. Use this with fixed-length records only. You set this value 
before reading from or writing to a direct access file. 

Record Terminator (DCBTRM) Byte 19 

Contains the character that DOS uses to terminate each record. You supply this value when 
reading from or writing to a sequential access file. 

Undefined (DCBUSR) Bytes 20-31 

Contains nothing at present. In future releases, DOS may use part of this. 

Bytes 32 - 48 

Bytes 32-48 are primarily set by DOS. However, you may use the contents of these bytes as 
data in your program. 

The exceptions to this are the bytes for the drive number, physical buffer address, and logical 
buffer address. You must set the contents of these bytes before opening a file. 

Operation Code (DCBOPC) Byte 32 

Contains the last physical I/O operation performed on the file. See your Disk System Manual 
for details. DOS sets this value. 

Drive Number (DCBDRV) Byte 33 

Contains the drive number (0-3 or $FF). $FF tells DOS to use the first available drive and then 
insert the drive number in this segment. You must set this value before opening a file. 

Track Number (DCBTRK) Byte 34 

Contains the number of the last track DOS accessed while doing I/O for this file. DOS sets this 
value. 

Sector Number (DCBSEC) Byte 35 

Contains the number of the last sector DOS accessed while doing I/O for this file. DOS sets 
this value. 

Physical Buffer Address (DCBBUF) Bytes 36-37 

Contains the start address of a 256-byte physical buffer. The physical buffer is for storing data 
before or after disk I/O. You must set this value before opening a file. 

Error Code (DCBOK) Byte 38 

Contains the same value that the DOS routine returns in Register A: a zero if the last DOS 
routine was successful; the error number if there was an error. DOS sets this value. 

Logical Buffer Address (DCBLRN) Bytes 39-40 

Contains the start address of a logical buffer. The logical buffer is for storing a logical record 
before or after it goes through the physical buffer. You must set this value before opening a 
file, unless you have specified the "share" file mode. (See OPEN.) 

Physical Record Number (DCBPRN). Bytes 41-42 

Contains the number of the physical record currently in the physical buffer. DOS uses this to 
determine whether another physical read or write is required. This contains $FFFF when the 
file is opened. It also contains $FFFF after every read or write when the buffer is "shared." 
DOS sets this value. 



92 



Relative Byte Address (DCBRBA) Bytes 43-45 

Contains an address which points to the record you want to read or write (zero when the file is 
first opened). With sequential access, this address always points to the next record. With direct 
access, this address is the product of DCBRSZ times DCBPRN. DOS sets and updates this 
value. 

Logical Record Number (DCBLRN). Bytes 46-47 

Contains the number of the next record to be accessed (zero when the file is first opened). 
Unless you set this value, DOS increments it after accessing each record. 

Modified Data Tag (DCBMDT) Byte 48 

Contains a tag ("1") if the contents of the physical buffer need to be written to disk. DOS sets 
this tag each time it writes to the logical buffer. The contents of the physical buffer are written 
to disk only when DOS must access a different sector (because the 256-byte buffer is full) or 
close the file. If the physical buffer is "shared," the physical buffer is written to disk after each 
logical write. DOS sets and updates this value. 
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Reference H/ 
DOS Routines 



This reference lists all the DOS routines that Radio Shack will continue to provide in future releases. Please note that 
Radio Shack will support only the OPEN, CLOSE, READ, and WRITE routines. The other routines listed in this refer- 
ence will be provided, but not necessarily supported. 

Definition of Terms 

root program 

The portion of the program that is not an overlay. If you are not using overlays, this is the entire program. 

overlay 

A portion of the program that DOS loads into memory only when called. This can be your own overlay (called with 
DOUSR, GOUSR, or LOUSR) or a DOS overlay (called with DO, GO, or LOAD). 

DOS programming convention 

A convention, which any program using DOS routines must follow: 

• The execution address must be the first instruction in the program. 

• The first three bytes of the program must contain a JMP or LBR to any part of the root program. (JMP and LBR are 
both 3-byte instructions.) Example: 

START JMP BEGIN 

• The next two bytes must contain the length of the root program. If you are not using overlays, this is the entire 
program. Example: 

FDB DONE-START 

• If you are using overlays, this is the root program. Example: 

FDB D0NE-0VY1 

DOS overlay conventions 

A convention, which any of your own overlays must follow: 

• The first two bytes must contain the size of the overlay. Example: 

0MY1 FDB 0UY2-0UY1 

• The next three bytes must contain a JMP or LBRA to any part of the overlay. Example: 

JSR PR0V1 

• The last instruction should be an RTS, GO, or GOUSR. 

• You must assign the overlay a number that is sequential. For example, assign your first overlay the overlay number 
of 1: 

OUY ECU 1 
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H / DOS ROUTINES 



• The overlay must be written with relocatable (rather than absolute) addresses. When DOS loads the overlay, it sets 
Register X equal to the overlay's base address. Therefore, you can refer to all the local variables as an offset to 
Register X. 



COMMANDS PAGES 

DISCUSSED 



CLOSE =[$602] 
Closes access to a disk file. 
Entry Conditions: 

Register U = the address of the DCB that was previously opened. 

Program must follow DOS programming convention. 
Exit Conditions 

Register A = status code 
Technical Function of CLOSE: 

• Checks the drive specified by DCBDRV for a directory entry matching DCBFNM and 
DCBFEX. When the entry is found, checks to see if the file was previously open by seeing if 
DCBCFS contains a non-zero value. 

• Checks DCBMDT for a modification tag. If found, writes the contents of the physical buffer to 
the disk. 

• Sets DCBCFS to zero. 

• Rewrites the directory entry with the first 32 bytes of the DCB. Any changes in the first 32 
bytes of the DCB after OPEN and before CLOSE are recorded in the directory. 

• Rewrites the diskette's FAT. 

DO = [$60A] 

Calls a DOS overlay. 
Entry Conditions: 

Register A = DOS overlay number 
Exit Conditions: 

Register A = status code 

DOUSR = [$0610] 

Calls one of your own overlays. 
Entry Conditions: 

Register A = overlay number (the number you have assigned to the overlay) 
Exit Conditions: 

Register A = status code 

GO = [$60C] 

Calls one DOS overlay from another DOS overlay. 
Entry Conditions: 

Register A = DOS overlay number 
Exit Conditions: 

Register A = status code 
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GOUSR = [$612] 

Calls one overlay from another overlay. For example, OVY1 calls OVY2. 

Entry Conditions: 

Register A = overlay number (the number you have assigned to the overlay) 
Exit Conditions: 

Register A = "0" if no error; error code if error 

LOAD = [$60E] 

Loads a DOS overlay but does not execute it. 
Entry Conditions: 

Register A = DOS overlay number 
Exit Conditions: 

Register A = "0" if no error; error code if error 

LODUSR = [$614] 

Loads one of your overlays but does not execute it. 

Entry Conditions: 

Register A = overlay number (the number you have assigned to the overlay) 
Exit Conditions: 

Register A = "0" if no error; error code if error 

OPEN = [$600] 

Opens access to a disk file using the specified file mode. 
Entry Conditions: 

Register A = file mode 
The file modes are: 

allows reads 
allows writes 
allows file creation 
allows extension past end of file 
deletes the file when closed (work file) 

rewrites the directory's file allocation table (FAT) only when the file is 
closed. (Otherwise, rewrites FAT after each READ; see the Disk Sys- 
tem Manual for information on the FAT.) 
shares the physical and logical buffer 
undefined 
Register U = the address where the DCB is stored. 

The DCB must contain values for DCBFNM, DCBFEX, DCBDRV, and DCBBUF 
Program must follow DOS programming conventions. 
Exit Conditions: 

Register A = if no error; error code if error 
Technical Function of OPEN: 

• Checks the drive specified by DCBDRV for a directory entry matching DCBFNM and 
DCBFEX. 

• If a match is found: 

• Uses the directory entry to overwrite the first 32 bytes of the DCB 

• Checks DCBCFS. It indicates a write, create, or extend, the file is opened and Status 
Code L is returned. 

• Inserts the file mode (contained in Register A) in DCBCFS. 

• Overwrites the directory entry with the first 32 bytes of the DCB. 

• If a match is not found and the file mode is "create," creates a directory entry using the first 
32 bytes of the DCB 



Bit 


set 


Bit 1 


set 


Bit 2 


set 


Bit 3 


set 


Bit 4 


set 


Bit 5 


set 


Bit 6 


set 


Bit 7 


set 
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• Sets DCBPRN to $FFFF 

• Clears DCBLRN, DCBMDT, and DCBRBA. 

READ = [$604] 

Reads a record from a disk file. 
Entry Conditions 

Register A = read option 
The read options are: 

Bit clear — direct access (read by record number; fixed length records) 
Bit set — sequential access (read by terminator character; variable length re- 
cords) 
Bit 1 clear — exit READ pointing to next record 
Bit 1 set — exit READ leaving DCBLRN and DCBRBA the same (not pointing to 

next record) 
The other bits can contain any value. 
Register U = address pointing to the DCB 
Program must follow DOS programming convention 
Exit Conditions: 

Register A = if no error; error number if error logical buffer (pointed to by DCBLRB) 
contains the record 
Technical Function of READ: 

• Checks DCBCFS to see if the file was opened for "read." 

• Checks DCBRBA for the record you want to access. (If Bit in Register A is clear, READ 
calculates DCBRBA as the product of DCBLRN times DCBRSZ). 

• Checks to see if the record is in the physical buffer (by comparing the high two bytes of 
DCBRBA with the contents of DCBPRN). 

If the record is not in the physical buffer, READ reads the record into the physical buffer 
then transfers it to the logical buffer. 

• Checks to see if Register A's Bit 1 is set. If so, restore DCBLRN and DCBRBA to their 
original values. 

RELSE = [$608] 

Frees a physical buffer so that you can use it with another file. 
Entry Conditions: 

Register U = address where the DCB is stored of the file currently using the physical 
buffer. 

Register A = if no error; error code if error. 
Technical Function of RELSE: 

• Check DCBMDT. If the tag is set, the contents of the physical buffer are written to disk and 
DCBMDT is cleared. 

• Sets DCBPRN to $FFFF. 

WRITE = [$606] 

Writes a logical record to disk. 
Entry Conditions: 

Register A = read/write option 
The read/write options are: 

Bit clear — direct access (write by record number; fixed length records) 
Bit set — sequential access (write by terminator character; variable length 
records) 



98 



Bit 1 clear — exit READ pointing to next record 

Bit 1 set — exit READ leaving DCBLRN and DCBRBA the same (not pointing to 

next record) 
The other bits can contain any value. 
Register U = address pointing to the DCB logical buffer (pointed to by DCBLRB) con- 
tains the record you want to write 
Program must follow DOS programming conventions. 
Exit Conditions: 

Register A = if no error; status code if error 
Technical Function of WRITE: 

• Checks DCBCFS to see if the file was opened for "write." 

• Checks DCBRBA for the record you want to access. (If Bit in Register A is off, WRITE 
calculates DCBRBA as the product of DCBLRN times DCBRSZ). 

• Transfers the contents of the logical buffer to the physical buffer. If all 256 bytes of the 
physical buffer are full, writes the contents of the physical buffer to disk. If there is still more 
contents in the logical buffer, WRITE transfer these contents to the physical buffer and sets 
DCBMDTtol. 

• If the file mode is "share," writes the complete contents of the physical buffer to disk regard- 
less of whether it completely fills the sector. Then, sets DCBPRN to $FFFF. 
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Reference 1/ 
DOS Error Codes 



Error 
Code 

00 


Hex 
Code 

40 


Character 
Displayed 

@ 


01 


41 


A 


02 


42 


B 


03 


43 


C 


04 


44 


D 


05 


45 


E 


06 


46 


F 


07 


47 


G 


08 


48 


H 


09 


49 


I 


0A 


4A 


J 


0B 


4B 


K 


OC 


4C 


L 


OD 


4D 


M 


OE 


4E 


N 


OF 


4F 





10 


50 


P 


11 


51 


Q 


12 


52 


R 


13 


53 


S 


14 


54 


T 


15 


55 


U 


16 


56 


V 


17 


57 


w 


18 


58 


X 


19 


59 


Y 


1A 


5A 


z 


1B 


5B 


[ 


1C 


5C 


\ 


1D 


5D 


] 


1E 


5E 


* 


1F 


5F 


— 



Error 

No errors 

I/O error (drive not ready) 

I/O error (write-protected diskette) 

I/O error (write fault) 

I/O error (seek error or record not found) 

I/O error (CER error) 

I/O error (lost data) 

I/O error (undefined Bit 1 ) 

I/O error (undefined Bit 0) 

Register argument is invalid 

File directory entry not found 

Full directory 

File was created by the OPEN function 

File not closed after changes 

Attempt to access an opened file 

Attempt to read a read-protected file 

RBA overflow (exceeds 3 bytes -16,777,216) 

Access beyond EOF or extension not allowed 

FAT rewrite error 

Attempt to close an unopened file 

Can't access directly (record size is 0) 

Attempt to write on write-protected diskette 

Can't extend file (disk capacity exceeded) 

Error while loading overlay 

Insufficient print space allocated 

I/O error during BASIC line read 

Program's load address is too low 

First byte of program file is not equal to zero 

Not enough space for buffered keyboard 

Not enough memory 

Output file already exists 

Wrong diskette 
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Reference J/ 
Memory Map 



$0 - $69 

$70-$FF 

$100-$111 

$112-$119 

$11A 

$11B-$159 

$15A-$15D 

$15E-$3FF 

$400-$5FF 

$600-$11FF 

$1200-$3FFF 

$1200-$7FFF 

$8000-$9FFF 

$A000-$BFFF 

$C000-$DFFF 

$E000-$FEFF 
$FF00-$FFEE 
$FFF0-$FFFF 



Direct page RAM 
System direct page RAM 
Interrupt vectors 
System RAM 
Keyboard alpha lock flag 
System RAM 
Joystick pot values 
System RAM 
Video memory 
DOS 

1 6K user memory 
32K user memory 
Extended BASIC 
BASIC 
Disk BASIC 
ROM expansion 
Hardware address 
Interrupt vectors 
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Reference K/ 
ASCII Codes 



Video Control Codes 



Dec Hex PRINT CHR$(code) 



8 08 Backspaces and erases current character. 
13 0D Line feed with carriage return. 
32 20 Space __ 



Color Codes 



CODE 


COLOR 





Black 


1 


Green 


2 


Yellow 


3 


Blue 


4 


Red 


5 


Buff 


6 


Cyan 


7 


Magenta 


8 


Orange 



Graphic Character 
Codes 

Given the color (1-8) and the pattern (0-15), this formula 
will generate the correct code: 

code = 128 + 16 * (color - 1) + pattern 





1 




2 




3 




4 




5 






7 




8 




9 




10 




11 





12 



13 



14 



15 



For example, to print pattern 9 in blue (code 3), type: 
C = 128 + IB * (3-1 ) + 9 
? CHR* (C) 
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K / ASCII CODES 



Alphanumeric 
Character Codes 



CHARACTER 


DECIMAL 
CODE 


HEXADECIMAL 
CODE 


(SPACEBAR) 


32 


20 


1 


33 


21 


jj 


34 


22 


# 


35 


23 


$ 


36 


24 


% 


37 


25 


& 


38 


26 


' 


39 


27 


( 


40 


28 


) 


41 


29 


* 


42 


2A 


+ 


43 


2B 


i 


44 


2C 


— 


45 


2D 




46 


2E 


/ 


47 


2F 





48 


30 


1 


49 


31 


2 


50 


32 


3 


51 


33 


4 


52 


34 


5 


53 


35 


6 


54 


36 


7 


55 


37 


8 


56 


38 


9 


57 


39 




58 


3A 


j 


59 


3B 


< 


60 


3C 


= 


61 


3D 


> 


62 


3E 


? 


63 


3F 


@ 


64 


40 


A 


65 


41 


B 


66 


42 


C 


67 


43 


D 


68 


44 


E 


69 


45 


F 


70 


46 


G 


71 


47 


H 


72 


48 


I 


73 


49 


J 


74 


4A 


K 


75 


4B 


L 


76 


4C 


M 


77 


4D 


N 


78 


4E 





79 


4F 


P 


80 


50 


Q 


81 


51 


R 


82 


52 


S 


83 


53 
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DECIMAL 


HEXADECIMAL 


CHARACTER 


CODE 


CODE 


T 


84 


54 


U 


85 


55 


V 


86 


56 


w 


87 


57 


X 


88 


58 


Y 


89 


59 


z 


90 


5A 


CD* 


94 


5E 


CD* 


10 


OA 


©* 


8 


08 


©* 


9 


09 


(BREAK) 


03 


03 


(CLEAR) 


12 


OC 


(ENTER) 


13 


OD 



*lf shif ted, the code for these characters are as follows: 
(CTEAff) is 92 (hex 5C); CD is 95 (hex 5F); CD is 91 (hex 
5B); & is 21 (hex 15); and & is 93 (hex 5D). 

These are the ASCII codes for lowercas e letter s. You can 
produce these characters by pressing (SHIFT) (T1 simul- 
taneously to get into an upper-lowercase mode. The lower- 
case letters will appear on your screen in reversed colors 
(green with a black background). 



CHARACTER 


DECIMAL 
CODE 


HEXADECIMAL 
CODE 


a 


97 


61 


b 


98 


62 


c 


99 


63 


d 


100 


64 


e 


101 


65 


f 


102 


66 


g 


103 


67 


h 


104 


68 


i 


105 


69 


j 


106 


6A 


k 


107 


6B 


I 


108 


6C 


m 


109 


6D 


n 


110 


6E 





111 


6F 


p 


112 


70 


q 


113 


71 


r 


114 


72 


s 


115 


73 


t 


116 


74 


u 


117 


75 


V 


118 


76 


w 


119 


77 


x 


120 


78 


y 


121 


79 


z 


122 


7A 
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Reference U 
6809 Mnemonics 



Definition of Terms 

Source Forms: 

This shows all the possible variations you can use with 
the instruction. Table 4 gives the meaning of all the nota- 
tions we use. The notations in italics represent values 
you can supply. 

For example, the BEQ instruction has two source forms. 
BEQ dd allows you to use these instructions: 



BEQ *08 



BEQ *FF 



BEQ *A0 



Whereas LBEQ DDDD allows you these: 

LBEQ $C000 LBEQ *FFFF 

Operation: 

This uses shorthand notation to show exactly what the 
instruction does, step by step. The meaning of all the 
codes are also in Table 4. 



For example, the BEQ operation does this: 

"If, (but only if), the zero flag is set, branch to 
the location indicated by the program counter 
plus the value of the 8-bit offset." 

Condition Codes: 

This shows which of the flags in the CC register are 
affected by the instruction, if any. As you'll note, BEQ 
does not set or clear any of the flags. 

Description: 

This is an overall description, in English, of what the 
instruction does. 

Addressing Mode: 

This tells you which addressing modes you may use with 
the instruction. BEQ allows only the Relative addressing 
mode. 
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ABBREVIATION 


MEANING 


ACCA or A 


Accumulator A. 


ACCB or B 


Accumulator B. 


ACCA:ACCB or D 


Accumulator D. 


ACCX 


Either accumulator A or 




accumulator B. 


CCR or CC 


Condition code register. 


DPR or DP 


Direct page register. 


EA 


Effective address. 


IFF 


If and only if. 


IXorX 


Index register X. 


lYorY 


Index register Y. 


LSN 


Least significant nibble. 


M 


Memory location. 


Ml 


Memory immediate. 


MSN 


Most significant nibble. 


PC 


Program counter. 


R 


A register before the operation. 


R' 


A register after the operation. 


TEMP 


A temporary storage location. 


xxH 


Most significant byte of any 




location. 


xxL 


Least significant byte of any 




location. 


SporS 


Hardware stack pointer. 



ABBREVIATION 


MEANING 


UsorU 


User stack pointer. 


P 


A memory location with immediate, 




direct, extended, and indexed 




addressing modes. 


Q 


A read-write-modify argument with 




direct, extended and indexed 




addressing modes. 


() 


The data pointed to by the enclosed 




(16 bit address). 


dd 


8-bit branch offset. 


DDDD 


16-bit offset. 


# 


Immediate value follows. 


$ 


Hexadecimal value follows. 


[] 


Indirection. 


, 


Indicates indexed addressing. 


«— 


Is transferred to. 


/ 


Boolean AND. 


V 


Boolean OR. 





Boolean Exclusive OR (XOR). 





Boolean NOT. 




Concatination. 


+ 


Arithmetic plus. 


— 


Arithmetic minus. 


X 


Arithmetic multiply. 



Table 4. Notations and Codes 
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Add Accumulator B 
into Index Register X 

Source Form: ABX 
Operation: IX'-IX + ACCB 



Condition Codes: Not affected. 

Description: Add the 8-bit unsigned value in accumulator B 

into index register X. 

Addressing Mode: Inherent. 



Add with Carry into Register 

Source Forms: ADCA P; ADCB P 
Operation: R'-R + M + C 
Condition Codes: 

H —Set if a half-carry is generated; cleared otherwise. 
N —Set if the result is negative; cleared otherwise. 
Z —Set if the result is zero; cleared otherwise. 



V — Set if an overflow is generated; cleared otherwise. 

C — Set if a carry is generated; cleared otherwise. 
Description: Adds the contents of the C (carry) bit and the 
memory byte into an 8-bit accumulator. 
Addressing Modes: Immediate; Extended; Direct; Indexed. 



Add Memory into Register 

Source Forms: ADDA P, ADDB P 
Operation: R'-R + M 
Condition Codes: 

H —Set if a half-carry is generated; cleared otherwise. 
N —Set if the result is negative; cleared otherwise. 
Z —Set if the result is zero; cleared otherwise. 



V — Set if an overflow is generated; cleared otherwise. 

C —Set if a carry is generated; cleared otherwise. 
Description: Adds the memory byte into an 8-bit 
accumulator. 
Addressing Modes: Immediate; Extended; Direct; Indexed. 



Add Memory into Register 

Source Form: ADDD P 
Operation: R'-R + M:M + 1 
Condition Codes: 

H —Not affected. 

N —Set if the result is negative; cleared otherwise. 

Z —Set if the result is zero; cleared otherwise. 



V —Set if an overflow is generated; cleared otherwise. 

C — Set if a carry is generated; cleared otherwise. 
Description: Adds the 16-bit memory value into the 16-bit 
accumulator. 
Addressing Modes: Immediate; Extended; Direct; Indexed. 



Logical AND Memory 
into Register 

Source Forms: ANDA P; ANDB P 
Operation: R'-R A M 
Condition Codes: 

H —Not affected. 

N —Set if the result is negative; cleared otherwise. 



Z — Set if the result is zero; cleared otherwise. 

V —Always cleared. 

C —Not affected. 
Description: Performs the logical AND operation between 
the contents of an accumulator and the contents of memory 
location M and the result is stored in the accumulator. 
Addressing Modes: Immediate; Extended; Direct; Indexed. 



Logical AND Immediate Memory 
into Condition Code Register 

Source Form: ANDCC #xx 

Operation: R'-R A Ml 

Condition Codes: Affected according to the operation. 



Description: Performs a logical AND between the condition 

code register and the immediate byte specified in the 

instruction and places the result in the condition code 

register. 

Addressing Mode: Immediate. 



Arithmetic Shift Left 

Source Forms: ASL Q; ASLA; ASLB 
Operation: C-| | | | | 



b7 - bO 

Condition Codes: 

H —Undefined. 

N —Set if the result is negative; cleared otherwise. 

Z —Set if the result is zero; cleared otherwise. 



V — Loaded with the result of the exclusive OR of bits 
six and seven of the original operand. 

C — Loaded with bit seven of the original operand. 
Description: Shifts all bits of the operand one place to the 
left. Bit zero is loaded with a zero. Bit seven is shifted into 
the C (carry) bit. 
Addressing Modes: Inherent; Extended; Direct; Indexed. 



AB 



X 



ADC 



ADD 
(8-Bit) 



ADD 
(16-Bit) 



AND 



AND 



ASL 
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ACJD 



BCC 



BCS 



BEO 



BGE 



BGT 



BHI 



Arithmetic Shift Right 

Source Forms: ASR Q; ASRA; ASRB 



Operation: 



>C 



bO 



b7 
Condition Codes: 

H —Undefined. 

N — Set if the result is negative; cleared otherwise. 



Branch on Carry Clear 

Source Forms: BCC dd; LBCC DDDD 
Operation: 

TEMP-MI 

IFF C = then PC-PC + TEMP 



Branch on Carry Set 

Source Forms: BCS dd; LBCS DDDD 
Operation: 

TEMP-MI 

IFFC=1 then PC-PC + TEMP 



Branch on Equal 

Source Forms: BEQ dd; LBEQ DDDD 
Operation: 

TEMP-MI 

IFFZ= 1 then PC-PC + TEMP 
Condition Codes: Not affected. 



Branch on Greater than 
or Equal to Zero 

Source Forms: BGE dd; LBGE DDDD 
Operation: 

TEMP-MI 

IFF IN e VI = then PC-PC + TEMP 
Condition Codes: Not affected. 



Branch on Greater 

Source Forms: BGT dd; LBGT DDDD 
Operation: 

TEMP-MI 

IFF Z A IN e VI = then PC-PC + TEMP 
Condition Codes: Not affected. 
Description: Causes a branch if the N (negative) bit and 
V (overflow) bit are either both set or both clear and the 



Branch if Higher 



Source Forms: BHI dd; LBHI DDDD 
Operation: 

TEMP-MI 

IFF IC v Z) = then PC-PC + TEMP 
Condition Codes: Not affected. 
Description: Causes a branch if the previous operation 
caused neither a carry nor a zero result. When used after a 



Z —Set if the result is zero; cleared otherwise. 

V —Not affected. 

C — Loaded with bit zero of the original operand. 
Description: Shifts all bits of the operand one place to the 
right. Bit seven is held constant. Bit zero is shifted into the 
C (carry) bit. 
Addressing Modes: Inherent; Extended; Direct; Indexed. 



Condition Codes: Not affected. 

Description: Tests the state of the C (carry) bit and causes a 

branch if it is clear. 

Addressing Mode: Relative. 

Comments: Equivalent to BHS dd; LBHS DDDD. 



Condition Codes: Not affected. 

Description: Tests the state of the C (carry) bit and causes a 

branch if it is set. 

Addressing Mode: Relative. 

Comments: Equivalent to BLO dd; LBLO DDDD. 



Description: Tests the state of the Z (zero) bit and causes a 
branch if it is set. When used after a subtract or compare 
operation, this instruction will branch if the compared values, 
signed or unsigned, were exactly the same. 
Addressing Mode: Relative. 



Description: Causes a branch if the N (negative) bit and the 
V (overflow) bit are either both set or both clear. That is, 
branch if the sign of a valid twos complement result is, or 
would be, positive. When used after a subtract or compare 
operation on twos complement values, this instruction will 
branch if the register was greater than or equal to the 
memory operand. 
Addressing Mode: Relative. 



Z (zero) bit is clear. In other words, branch if the sign of a 
valid twos complement result is, or would be, positive and 
not zero. When used after a subtract or compare operation 
on twos complement values, this instruction will branch if the 
register was greater than the memory operand. 
Addressing Mode: Relative. 



subtract or compare operation on unsigned binary values, 

this instruction will branch if the register was higher than the 

memory operand. 

Addressing Mode: Relative. 

Comments: Generally not useful after INC/DEC, LD/TST, 

and TST/CLR/COM instructions. 
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Branch if Higher or Same 

Source Forms: BHS dd; LBHS DDDD 
Operation: 

TEMP-MI 

IFF C = then PC'-PC + Ml 
Condition Codes: Not affected. 

Description: Tests the state of the C (carry) bit and causes a 
branch if it is clear. When used after a subtract or compare 



on unsigned binary values, this instruction will branch if the 

register was higher than or the same as the memory 

operand. 

Addressing Mode: Relative. 

Comments: This is a duplicate assembly-language 

mnemonic for the single machine instruction BCC. Generally 

not useful after INC/DEC, LD/ST, and TST/CLR/COM 

instructions. 



Bit Test 



Source Form: BIT P 
Operation: TEMP-R A M 
Condition Codes: 

H —Not affected. 

N —Set if the result is negative; cleared otherwise. 

Z —Set if the result is zero; cleared otherwise. 



V —Always cleared. 

C —Not affected. 
Description: Performs the logical AND of the contents of 
accumulator A or B and the contents of memory location M 
and modifies the condition codes accordingly. The contents 
of accumulator A or B and memory location M are not 
affected. 
Addressing Modes: Immediate; Extended; Direct; Indexed. 



Branch on Less than 
or Equal to Zero 

Source Forms: BLE dd; LBLE DDDD 
Operation: 

TEMP-MI 

IFF Z v IN © V) = 1 then PC'-PC + TEMP 
Condition Codes: Not affected. 



Description: Causes a branch if the exclusive OR of the N 
(negative) and V (overflow) bits is 1 or if the Z (zero) bit is 
set. That is, branch if the sign of a valid twos complement 
result is, or would be, negative. When used after a subtract 
or compare operation on twos complement values, this 
instruction will branch if the register was less than or equal 
to the memory operand. 
Addressing Mode: Relative. 



Branch on Lower 



Source Forms: BLO dd: LBLO DDDD 
Operation: 

TEMP-MI 

IFFC=1 then PC-PC+ TEMP 
Condition Codes: Not affected. 
Description: Tests the state of the C (carry) bit and causes a 



branch if it is set. When used after a subtract or compare on 
unsigned binary values, this instruction will branch if the 
register was lower than the memory operand. 
Addressing Mode: Relative. 
Comments: This is a duplicate assembly-language 
mnemonic for the single machine instruction BCS. Generally 
not useful after INC/DEC, LD/ST, and TST/CLR/COM 
instructions. 



Branch on Lower or Same 

Source Forms: BLS dd; LBLS DDDD 
Operation: 

TEMP-MI 

IFF(CvZ)=1 then PC-PC + TEMP 
Condition Codes: Not affected. 
Description: Causes a branch if the previous operation 



caused either a carry or a zero result. When used after a 

subtract or compare operation on unsigned binary values, 

this instruction will branch if the register was lower than or 

the same as the memory operand. 

Addressing Mode: Relative. 

Comments: Generally not useful after INC/DEC, LD/ST, and 

TST/CLR/COM instructions. 



Branch on Less than Zero 

Source Forms: BLT dd; LBLT DDDD 
Operation: 

TEMP-MI 

IFF IN 9 VI = 1 then PC-PC + TEMP 
Condition Codes: Not affected. 
Description: Causes a branch if either, but not both, of the 



N (negative) or V (overflow) bits is set. That is, branch if the 
sign of a valid twos complement result is, or would be, 
negative. When used after a subtract or compare operation 
on twos complement binary values, this instruction will 
branch if the register was less than the memory operand. 
Addressing Mode: Relative. 



Branch on Minus 



Source Forms: BMI dd; LBMI DDDD 
Operation: 

TEMP-MI 

IFF N = 1 then PC'-PC + TEMP 
Condition Codes: Not affected. 
Description: Tests the state of the N (negative) bit and 



causes a branch if set. That is, branch if the sign of the twos 

complement result is negative. 

Addressing Mode: Relative. 

Comments: When used after an operation on signed binary 

values, this instruction will branch if the result is minus. It is 

generally preferred to use the LBLT instruction after signed 

operations. 



dHS 



BIT 



BLE 



BLO 



BLS 



BLT 



BMI 
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BNE 



BPL 



BRA 



BRN 



BSR 



BVC 



BUS 



CLR 



Branch Not Equal 

Source Forms: BNE dd; LBNE DDDD 
Operation: 

TEMP-MI 

IFF Z = then PC-PC + TEMP 
Condition Codes: Not affected. 



Branch on Plus 

Source Forms: BPL dd; LBPL DDDD 
Operation: 

TEMP-MI 

IFF N = then PC-PC + TEMP 
Condition Codes: Not affected. 
Description: Tests the state of the N (negative) bit and 



Branch Always 

Source Forms: BRA dd; LBRA DDDD 
Operation: 



TEMP-MI 
PC-PC + TEMP 



Branch Never 

Source Forms: BRN dd; LBRN DDDD 
Operation: TEMP-MI 
Condition Codes: Not affected. 



Branch to Subroutine 

Source Forms: BSR dd; LBSR DDDD 
Operation: 

TEMP-MI 

SP'-SP-1,(SP)-PCL 
SP'-SP-1,(SP)-PCH 
PC-PC + TEMP 



Branch on Overflow Clear 

Source Forms: BVC dd; LBVC DDDD 
Operation: 

TEMP-MI 

IFF V = then PC-PC + TEMP 
Condition Codes: Not affected. 



BVS Branch on Overflow set 

Source Forms: BVS dd; LBVS DDDD 

Operation: Temp-«-MI IFF V= 1 then PC'*-PC + TEMP 

Condition Codes: Not affected. 



CLR Clear 



Source Forms: CLR Q 

Operation: TEMP-*- M M*- 00 (base 1 6) 

Condition codes: 

H — Not affected. 
N — Always cleared. 



Description: Tests the state of the Z (zero) bit and causes a 

branch if it is clear. When used after a subtract or compare 

operation on any binary values, this instruction will branch 

if the register is, or would be. not equal to the memory 

operand. 

Addressing Mode: Relative. 



causes a branch if it is clear. That is, branch if the sign 

of the twos complement result is positive. 

Addressing Mode: Relative. 

Comments: When used after an operation on signed binary 

values, this instruction will branch if the result (possibly 

invalid) is positive. It is generally preferred to use the BGE 

instruction after signed operations. 



Condition Codes: Not affected. 
Description: Causes an unconditional branch. 
Addressing Mode: Relative. 



Description: Does not cause a branch. This instruction is 
essentially a no operation, but has a bit pattern logically 
related to branch always. 
Addressing Mode: Relative. 



Condition Codes: Not affected. 

Description: The program counter is pushed onto the stack. 

The program counter is then loaded with the sum of the 

program counter and the offset. 

Addressing Mode: Relative. 

Comments: A return from subroutine (RTS) instruction is 

used to reverse this process and must be the last instruction 

executed in a subroutine. 



Description: Tests the state of the V (overflow) bit and 
causes a branch if it is clear. That is, branch if the twos 
complement result was valid. When used after an operation 
on twos complement binary values, this instruction will 
branch if there was no overflow. 
Addressing Mode: Relative. 

Description: Tests the state of V (overflow) bit and causes 
a branch if it is set. That is, branch if twos complement 
result was invalid. When used after an operation on twos 
complement binary values, this instruction will branch if there 
was an overflow. 
Addressing Mode: Relative. 



Z — Always set. 

V — Always cleared. 

C — Always cleared. 
Description: Accumulator A or B or memory location M is 
loaded with 00000000. Note that the EA is read during this 
operation. 
Addressing Modes: Inherent, Extended, Direct, Indexed. 
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Compare Memory from Register 

Source Forms: CMPA P; CMPB P 
Operation: TEMP-R - M 
Condition Codes: 

H —Undefined. 

N — Set if the result is negative; cleared otherwise. 

Z — Set if the result is zero; cleared otherwise. 



V — Set if an overflow is generated; cleared otherwise. 

C — Set if a borrow is generated; cleared otherwise. 
Description: Compares the contents of memory location 
to the contents of the specified register and sets the 
appropriate condition codes. Neither memory location M nor 
the specified register is modified. The carry flag represents a 
borrow and is set to the inverse of the resulting binary carry. 
Addressing Modes: Immediate; Extended; Direct; Indexed. 



Compare Memory from Register 

Source Forms: CMPD P; CMPX P; CMPY P; CMPU P; 

CMPSP 
Operation: TEMP-R - M:M + 1 
Condition Codes: 

H —Not affected. 

N —Set if the result is negative; cleared otherwise. 

Z — Set if the result is zero; cleared otherwise. 

V — Set if an overflow is generated; cleared otherwise. 



C —Set if a borrow is generated; cleared otherwise. 
Description: Compares the 16-bit contents of the 
concatenated memory locations M:M + 1 to the contents 
of the specified register and sets the appropriate condition 
codes. Neither the memory locations nor the specified 
register is modified unless autoincrement or autodecrement 
are used. The carry flag represents a borrow and is set to 
the inverse of the resulting binary carry. 
Addressing Modes: Immediate; Extended; Direct; Indexed. 



Complement 



Source Forms: COM_Q; COMA; COMB 
Operation: M ' -O + M 
Condition Codes: 

H — Not affected. 

N — Set if the result is negative; cleared otherwise. 

Z — Set if the result is zero; cleared otherwise. 

V —Always cleared. 

C — Always set. 



Description: Replaces the contents of memory location M 
or accumulator A or B with its logical complement. When 
operating on unsigned values, only BEQ and BNE branches 
can be expected to behave properly following a COM 
instruction. When operating on twos complement values, 
all signed branches are available. 
Addressing Modes: Inherent; Extended; Direct; Indexed. 



Clear CC bits and Wait 
for Interrupt 



Source Form: CWAI #$XX | E | F | H | I [ N | Z | vfc 



Operation: 

CCR-CCR A Ml (Possibly clear masks) 
Set E (entire state saved) 
SP'-SP-1,(SP)-PCL 
SPv-SP-1,(SP)-PCH 
SP-SP-1,(SP)-USL 
SP'-SP-1,(SP)-USH 
SP'-SP-1.(SPMYL 
SP'-SP-1,(SP)-IYH 
SP'-SP-1,(SPMXL 
Spv-SP-1,(SP)«-IXH 
SP'-SP-1,(SP)-DPR 
SP'-SP-1,(SP)-ACCB 
SP'-SP-1,(SP)-ACCA 
SP'-SP-1,(SP)-CCR 
Condition Codes: Affected according to the operation. 



Description: This instruction ANDs an immediate byte with 
the condition code register which may clear the interrupt 
mask bits I and F, stacks the entire machine state on the 
hardware stack and then looks for an interrupt. When a 
non-masked interrupt occurs, no further machine state 
information need be saved before vectoring to the interrupt 
handling routine. This instruction replaced the MC6800 CLI 
WAI sequence, but does not place the buses in a high- 
impedance state. A FIRQ (fast interrupt request) may enter 
its interrupt handler with its entire machine state saved. The 
RTI (return from interrupt) instruction will automatically return 
the entire machine state after testing the E (entire) bit of the 
recovered condition code register. 
Addressing Mode: Immediate. 

Comments: The following immediate values will have the 
following results: 

FF = enable neither 

EF = enable IRQ 

BF = enable FIRQ 

AF = enable both 



Decimal Addition Adjust 

Source Form: DAA 

Operation: ACCA'-ACCA + CF (MSN):CF(LSN) 

where CF is a Correction Factor, as follows: the CF for each 

nibble (BCD) digit is determined separately, and is either 

6or0. 

Least Significant Nibble 

CF(LSN) = 6IFF 1)C=1 

or 2) LSN>9 
Most Significant Nibble 
CF(MSN) = 6IFF1)C = 1 

or 2) MSN>9 

or3)MSN>8 and LSN>9 
Condition Codes: 
H — Not affected. 



N — Set if the result is negative; cleared otherwise. 

Z — Set if the result is zero; cleared otherwise. 

V — Undefined. 

C —Set if a carry is generated or if the carry bit was set 
before the operation; cleared otherwise. 
Description: The sequence of a single-byte add instruction 
on accumulator A (either ADDA or ADCA) and a following 
decimal addition adjust instruction results in a BCD addition 
with an appropriate carry bit. Both values to be added must 
be in proper BCD form (each nibble such that: 0«nibbles9). 
Multiple-precision addition must add the carry generated by 
this decimal addition adust into the next higher digit during 
the add operation (ADCA) immediately prior to the next 
decimal addition adjust. 
Addressing Mode: Inherent. 



CMP 
(8-Bit) 



CMP 
(IB-Bit) 



COM 



CWAI 



DAA 
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DEC 



EOR 



EVP 



INC 



JMP 



JSR 



LD 
(8-Bit) 



Decrement 



Source Forms: DEC Q; DECA; DECB 
Operation: M'-M - 1 
Condition Codes: 

H— Not affected. 

N — Set if the result is negative; cleared otherwise. 
Z — Set if the result is zero; cleared otherwise. 
V —Set if the original operand was 10000000; cleared 
otherwise. 



C —Not affected. 
Description: Subtract one from the operand. The carry bit 
is not affected, thus allowing this instruction to be used as 
a loop counter in multiple-precision computations. When 
operating on unsigned values, only BEQ and BNE branches 
can be expected to behave consistently. When operating on 
twos complement values, all signed branches are available. 
Addressing Modes: Inherent; Extended; Direct; Indexed. 



Exclusive OR 



Source Forms: EORA P, EORB P 
Operation: R'-R ® M 
Condition Codes: 

H— Not affected. 

N — Set if the result is negative; cleared otherwise. 



Z —Set if the result is zero; cleared otherwise. 

V —Always cleared. 

C —Not affected. 
Description: The contents of memory location M is 
exclusive ORed into an 8-bit register. 
Addressing Modes: Immediate; Extended; Direct; Indexed. 



Exchange Registers 

Source Form: EXG R1.R2 

Operation: R1—R2 

Condition Codes: Not affected (unless one of the registers 

is the condition code register). 

Description: Exchanges data between two designated 

registers. Bits 3-0 of the postbyte define one register, while 

bits 7-4 define the other, as follows: 

0000 = A:B 1000 = A 

0001 =X 1001 =B 



0010 = Y 

0011 =US 

0100 = SP 

0101 =PC 

01 10 = Undefined 
0111= Undefined 



1010 = CCR 

1011 =DPR 

11 00 = Undefined 
1101= Undefined 
1110 = Undefined 
1111=Undefined 



Increment 

Source Forms: INC O; INCA; INCB 
Operation: M'-M + 1 
Condition Codes: 

H —Not affected. 

N —Set if the result is negative; cleared otherwise. 
Z —Set if the result is zero; cleared otherwise. 
V —Set if the original operand was 01 1 1 1 1 1 1 ; 
cleared otherwise. 



Jump 



Source Form: JMP EA 
Operation: PC'-EA 
Condition Codes: Not affected. 



Jump to Subroutine 

Source Form: JSR EA 
Operation: 

SP'-SP-1,(SP)-PCL 
SP'-SP-1, (SP)-PCH 
PC'-EA 



Load Register from Memory 

Source Forms: LDA P, LDB P 
Operation: R'-M 
Condition Codes: 

H— Not affected. 

N — Set if the loaded data is negative; cleared 
otherwise. 



Only like size registers may be exchanged. (8-bit with 
8-bit or 16-bit with 16-bit.) 
Addressing Mode: Immediate. 



C —Not affected. 
Description: Adds to the operand. The carry bit is not 
affected, thus allowing this instruction to be used as a loop 
counter in multiple-precision computations. When operating 
on unsigned values, only the BEQ and BNE branches can be 
expected to behave consistently. When operating on twos 
complement values, all signed branches are correctly 
available. 
Addressing Modes: Inherent; Extended; Direct; Indexed. 



Description: Program control is transferred to the effective 

address. 

Addressing Modes: Extended; Direct; Indexed. 



Condition Codes: Not affected. 

Description: Program control is transferred to the effective 

address after storing the return address on the hardware 

stack. A RTS instruction should be the last executed 

instruction of the subroutine. 

Addressing Modes: Extended; Direct; Indexed. 



Z —Set if the loaded data is zero; cleared otherwise. 

V —Always cleared. 

C —Not affected. 
Description: Loads the contents of memory location M into 
the designated register. 
Addressing Modes: Immediate; Extended; Direct; Indexed. 
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Load Register from Memory 

Source Forms: LDD P LDX P, LDY P LDS P LDU P 
Operation: R'-M:M + 1 
Condition Codes: 

H —Not affected. 

N — Set if the loaded data is negative; cleared 
otherwise. 



Z — Set if the loaded data is zero; cleared otherwise. 

V —Always cleared. 

C— Not affected. 
Description: Load the contents of the memory location 
M:M -h 1 into the designated 16-bit register. 
Addressing Modes: Immediate; Extended; Direct; Indexed. 



Load Effective Address 

Source Forms: LEAX, LEAY, LEAS, LEAU 
Operation: R'-EA 
Condition Codes: 

H— Not affected. 

N —Not affected. 

Z — LEAX, LEAY: Set if the result is zero; cleared 
otherwise. LEAS, LEAU: Not affected. 

V —Not affected. 

C —Not affected. 
Description: Calculates the effective address from the index 
addressing mode and places the address in an indexable 
register. 

LEAX and LEAY affect the Z (zero) bit to allow use of 
these registers as counters and for MC6800 INX/DEX 
compatibility. 

LEAU and LEAS do not affect the Z bit to allow cleaning up 
the stack while returning the Z bit as a parameter to a calling 



routine, and also for MC6800 INS/DES compatibility. 
Addressing Mode: Indexed. 

Comments: Due to the order in which effective addresses 
are calculated internally, the LEAX, X+ + and LEAX.X+ do 
not add 2 and 1 (respectively) to the X register; but instead 
leave the X register unchanged. This also applies to the 
Y, U, and S registers. For the expected results, use the 
faster instruction LEAX 2, X and LEAX 1, X. 

Some examples of LEA instruction uses are given in the 
following table. 

Comment 

Adds 5-bit constant 10 to X. 

Adds 16-bit constant 500 to X. 

Adds 8-bit accumulator to Y. 

Adds 16-bit D accumulator to Y. 

Subtracts 10fromU. 

Used to reserve area on stack. 

Used to 'clean up' stack. 

Transfers as well as adds. 



Instruction Operation 


LEAX 


10, X X+10-X 


LEAX 


500.X X + 500-X 


LEAY 


A, Y Y+A-Y 


LEAY 


D, Y Y + D-Y 


LEAU 


-10, U U-10-U 


LEAS 


-10, S S-10-S 


LEAS 


10, S S+10-S 


LEAX 


5, S S + 5-X 



Logical Shift Left 

Source Forms: LSL Q; LSLA; LSLB 
Operation: C-l I I I [~ 



>o 



b7 bO 

Condition Codes: 

H —Undefined. 

N —Set if the result is negative; cleared otherwise. 

Z — Set if the result is zero; cleared otherwise. 



V — Loaded with the result of the exclusive OR of bits 
six and seven of the original operand. 

C —Loaded with bit seven of the original operand. 
Description: Shifts all bits of accumulator A or B or memory 
location M one place to the left. Bit zero is loaded with a 
zero. Bit seven of accumulator A or B or memory location M 
is shifted into the C (carry) bit. 
Addressing Modes: Inherent; Extended; Direct; Indexed. 
Comments: This is a duplicate assembly-language 
mnemonic for the single machine instruction ASL. 



Logical Shift Right 

Source Forms: LSR Q; LSRA; LSRB 
Operation: 0-»| | | | | 



b7 
Condition Codes: 

H— Not affected. 



bO 



N —Always cleared. 

Z —Set if the result is zero; cleared otherwise. 

V —Not affected. 

C — Loaded with bit zero of the original operand. 
Description: Performs a logical shift right on the operand. 
Shifts a zero into bit seven and bit zero into the C (cany) bit. 
Addressing Modes: Inherent; Extended; Direct; Indexed. 



LD 
(IB-Bit) 



L.C.H 



Multiply 



Source Form: MUL 

Operation: ACCA':ACCB'«-ACCAxACCB 

Condition Codes: 

H —Not affected. 

N —Not affected. 

Z — Set if the result is zero; cleared otherwise. 

V —Not affected. 



C — Set if ACCB bit 7 of result is set; cleared otherwise. 
Description: Multiply the unsigned binary numbers in the 
accumulators and place the result in both accumulators 
(ACCA contains the most-significant byte of the result). 
Unsigned multiply allows multiple-precision operations. 
Addressing Mode: Inherent. 

Comments: The C (cany) bit allows rounding the most- 
significant byte through the sequence: MUL ADCA #0. 



LSL 



LSR 



MUL 
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NEG 



NOP 



OR 



OR 



DCUC 

"gnu 



PSHU 



Negate 

Source Forms: NEG Q; NEGA; NEGB 
Operation: M'-O-M 
Condition Codes: 

H —Undefined. 

N —Set if the result is negative; cleared otherwise. 
Z —Set if the result is zero; cleared otherwise. 
V —Set if the original operand was 10000000. 



C — Set if a borrow is generated; cleared otherwise. 
Description: Replaces the operand with its twos 
complement. The C (carry) bit represents a borrow and is set 
to the inverse of the resulting binary carry. Note that 80, 6 is 
replaced by itself and only in this case is the V (overflow) bit 
set. The value 00, 6 is also replaced by itself, and only in this 
case is the C (carry) bit cleared. 
Addressing Modes: Inherent; Extended; Direct. 



No Operation 

Source Form: NOP 
Operation: Not affected. 



Condition Codes: This instruction causes only the program 
counter to be incremented. No other registers or memory 
locations are affected. 
Addressing Mode: Inherent. 



Inclusive OR Memory 
into Register 

Source Forms: ORA P; ORB P 
Operation: R'-R v M 
Condition Codes: 

H —Not affected. 

N — Set if the result is negative; cleared otherwise. 



Z —Set if the result is zero; cleared otherwise. 

V —Always cleared. 

C —Not affected. 
Description: Performs an inclusive OR operation between 
the contents of accumulator A or B and the contents of 
memory location M and the result is stored in accumulator 
AorB. 
Addressing Modes: Immediate; Extended; Direct; Indexed. 



Inclusive OR Memory Immediate 
into Condition Code Register 

Source Form: ORCC #XX 

Operation: R'-R v Ml 

Condition Codes: Affected according to the operation. 



Description: Performs an inclusive OR operation between 
the contents of the condition code registers and the 
immediate value, and the result is placed in the condition 
code register. This instruction may be used to set interrupt 
masks (disable interrupts) or any other bit(s). 
Addressing Mode: Immediate. 



Push Registers on 
the Hardware Stack 

Source Form: 

PSHS register list 
PSHS #IABEL 
Postbyte: 

b7 b6 b5 b4 b3 b2 b1 bO 
|PC| U [ Y I X |0P| B [ A |CC| 

push order -> 
Operation: 

IFF b7 of postbyte set, then: SP'-SP- 1, (SP)-PCL 

SP'-SP- 1,(SP)-PCH 

IFF b6 of postbyte set, then: SP'-SP- 1, (SP)-USL 

SP'-SP -1,(SP)-USH 



IFF b5 of postbyte set, then: SP'-SP- 1, (SP)-IYL 
SP'-SP -1,(SP)-IYH 
IFF b4 of postbyte set, then: SP'-SP- 1, (SP)-IXL 
SP'-SP -1,(SP)-IXH 
IFF b3 of postbyte set, then: SP'-SP- 1, (SP)-DPR 
IFF b2 of postbyte set, then: SP'-SP- 1, (SP)-ACCB 
IFF b1 of postbyte set, then: SP'-SP- 1, (SP)-ACCA 
IFF bO of postbyte set, then: SP'-SP- 1, (SP)-CCR 

Condition Codes: Not affected. 

Description: All, some, or none of the processor registers 

are pushed onto the hardware stack (with the exception of 

the hardware stack pointer itself). 

Addressing Mode: Immediate. 

Comments: A single register may be placed on the stack 

with the condition codes set by doing an autodecrement 

store onto the stack (example: STX, — S). 



Push Registers on 
the User Stack 

Source Form: 

PSHUreg/sfe/-//sf 
PSHU #LABEL 
Postbyte: 



b7 b6 b5 b4 b3 b2 


bl 


DO 


|PC| U | Y | x |dp| b 


A 


cc| 



push order -* 
Operation: 

IFF b7 of postbyte set, then: US'-US - 1 , (US)-PCL 

US'-US-1,(US)-PCH 

IFF t>6 of postbyte set, then: US'-US - 1, (US)-SPL 

US'-US- 1, (US)-SPH 



IFF b5 of postbyte set, then: US'-US- 1, (US)-IYL 
US'-US -1,(US)-IYH 
IFF b4 of postbyte set, then: US'-US- 1, (US)-IXL 
US'-US -1,(US)-IXH 
IFF b3 of postbyte set, then: US'-US- 1, (US)-DPR 
IFF b2 of postbyte set, then: US'-US- 1, (US)-ACCB 
IFF b1 of postbyte set, then: US'-US- 1, (US)-ACCA 
IFF bO of postbyte set, then: US'-US- 1, (US)-CCR 

Condition Codes: Not affected. 

Description: All, some, or none of the processor registers 

are pushed onto the user stack (with the exception of the 

user stack pointer itself). 

Addressing Mode: Immediate. 

Comments: A single register may be placed on the stack 

with the condition codes set by doing an autodecrement 

store onto the stack (example: STX, — U). 
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Pull Registers from 
the Hardware Stack 

Source Form: 

PULS register list 
PULS #LABEL 
Postbyte: 

b7 b6 b5 b4 b3 b2 b1 bO 
' Y | x |dp| b I A ' 



PC u 



cc 



— pull order 
Operation: 

IFF bO of postbyte set, then: CCR' -(SP), SP'-SP+ 1 
IFF b1 of postbyte set, then: ACCA'-(SP), SP'-SP+ 1 
IFF b2 of postbyte set, then: ACCB'-(SP), SP'-SP + 1 
IFF b3 of postbyte set, then: DPR' -(SP), SP'-SP + 1 
IFF b4 of postbyte set, then: IXH ' -(SP), SP'-SP + 1 
IXL' -(SP), SP'-SP +1 



IFF b5 of postbyte set, then: IYH' .-(SP), SP'-SP+ 1 
IYL' -(SP), SP'-SP +1 

IFF b6 of postbyte set, then: USH' -(SP), SP'-SP + 1 
USL' -(SP), SP'-SP +1 

IFF b7 of postbyte set, then: PCH' -(SP), SP'-SP + 1 
PCL' -(SP), SP'-SP +1 
Condition Codes: May be pulled from stack; not affected 
otherwise. 

Description: All, some, or none of the processor registers 
are pulled from the hardware stack (with the exception of the 
hardware stack pointer itself). 
Addressing Mode: Immediate. 

Comments: A single register may be pulled from the stack 
with condition codes set by doing an autoincrement load 
from the stack (example; LDX.S + + ). 



Pull Registers from 
the User Stack 

Source Form: 

PULU register list 
PULU #LABEL 
Postbyte: 

b7 b6 b5 b4 b3 b2 b1 bO 
|PC[ U | Y | X |DP| B I A |cc| 



— pull order 
Operation: 

IFF bO of postbyte set, then: CCR' -(US), US'-US + 1 
IFF b1 of postbyte set, then: ACCA'-(US), US'-US + 1 
IFF b2 of postbyte set, then: ACCB'-(US), US'-US + 1 
IFF b3 of postbyte set, then: DPR' -(US), US'-US + 1 
IFF b4 of postbyte set, then: IXH' -(US), US'-US + 1 
IXL' -(US), US'-US +1 



IFF b5 of postbyte set, then: IYH' -(US), US'-US + 1 
IYL' -(US), US'-US +1 

IFF b6 of postbyte set, then: SPH' -(US), US'-US + 1 
SPL' -(US), US'-US + 1 

IFF b7 of postbyte set, then: PCH -(US), US'-US + 1 
PCL' -(US), US'-US +1 
Condition Codes: May be pulled from stack; not affected 
otherwise. 

Description: All, some, or none of the processor registers 
are pulled from the user stack (with the exception of the user 
stack pointer itself). 
Addressing Mode: Immediate. 

Comments: A single register may be pulled from the stack 
with condition codes set by doing an autoincrement load 
from the stack (example: LDX.U + +). 



Rotate Left 

Source Forms: ROL Q; ROLA; ROLB 
Operation: 



>|_C_ 



b7 
Condition Codes: 

H —Not affected. 



bO 



N — Set if the result is negative; cleared otherwise. 

Z — Set if the result is zero; cleared otherwise. 

V — Loaded with the result of the exclusive OR of bits 
six and seven of the original operand. 

C — Loaded with bit seven of the original operand. 
Description: Rotates all bits of the operand one place left 
through the C (carry) bit. This is a 9-bit rotation. 
Addressing Mode: Inherent; Extended; Direct; Indexed. 



Rotate Right 

Source Forms: ROR Q; RORA; RORB 



Operation: 



_CJ' 



b7 
Condition Codes: 

H —Not affected. 



bO 



N — Set if the result is negative; cleared otherwise. 

Z —Set if the result is zero; cleared otherwise. 

V —Not affected. 

C — Loaded with bit zero of the previous operand. 
Description: Rotates all bits of the operand one place right 
through the C (carry) bit. This is a 9-bit rotation. 
Addressing Modes: Inherent; Extended; Direct; Indexed. 



ULu 



PULU 



ROL 



ROR 
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RTI 



RTS 



SBC 



SEa 



ST 
(8-Bit) 



ST 
(IB-Bit) 



SUB 
(8-Bit) 



Return from Interrupt 

Source Form: RTI 

Operation: CCR'-(SP), SP'-SP + 1, then 

IFF CCR bit E is set, then: ACCA '-(SP), SP'-SP + 1 
ACCB'-(SP), SP'-SP +1 



DPR' 

IXH' 

IXL' 

IYH' 

IYL' 

USH' 

USL' 



-CSP), SP'-SP +1 
-(SP), SP'-SP +1 
-(SP), SP'-SP +1 
-(SP), SP'-SP +1 
-(SP), SP'-SP +1 
-(SP), SP'-SP +1 
-(SP), SP'-SP +1 



PCH' -(SP), SP'-SP +1 
PCL' -(SP), SP'-SP +1 
IFF CCR bit E is clear, then: PCH' -(SP), SP'-SP + 1 
PCL' -(SP), SP'-SP +1 
Condition Codes: Recovered from the stack. 
Description: The saved machine state is recovered from the 
hardware stack and control is returned to the interrupted 
program. If the recovered E (entire) bit is clear, it indicates 
that only a subset of the machine state was saved (return 
address and condition codes) and only that subset is 
recovered. 
Addressing Mode: Inherent. 



Return from Subroutine 

Source Form: RTS 
Operation: 

PCH'-(SP), SP'-SP +1 
PCL'-(SP), SP'-SP +1 



Subtract with Borrow 

Source Forms: SBCA P; SBCB P 
Operation: R'-R-M-C 
Condition Codes: 

H —Undefined. 

N —Set if the result is negative; cleared otherwise. 

Z —Set if the result is zero; cleared otherwise. 



Sign Extended 



Source Form: SEX 
Operation: 

If bit seven of ACCB is set then ACCA'-FF, 6 
else ACCA'-00, 6 
Condition Codes: 
H —Not affected. 



Store Register into Memory 

Source Forms: STA P; STB P 
Operation: M'-R 
Condition Codes: 

H —Not affected. 

N —Set if the result is negative; cleared otherwise. 



Store Register into Memory 

Source Forms: STD P STX P STY P STS P; STU P 
Operation: M':M + 1'-R 
Condition Codes: 

H— Not affected. 

N —Set if the result is negative; cleared otherwise. 



Condition Codes: Not affected. 

Description: Program control is returned from the 

subroutine to the calling program. The return address 

is pulled from the stack 

Addressing Mode: Inherent. 



V —Set if an overflow is generated; cleared otherwise. 

C —Set if a borrow is generated; cleared otherwise. 
Description: Subtracts the contents of memory location M 
and the borrow (in the C (carry) bit) from the contents of the 
designated 8-bit register, and places the result in that 
register. The C bit represents a borrow and is set to the 
inverse of the resulting binary carry. 
Addressing Modes: Immediate; Extended; Direct; Indexed. 



N —Set if the result is negative; cleared otherwise. 

Z —Set if the result is zero, cleared otherwise. 

V —Not affected. 

C —Not affected. 
Description: This instruction transforms a twos complement 
8-bit value in accumulator B into a twos complement 16-bit 
value in the D accumulator. 
Addressing Mode: Inherent. 



Z — Set if the result is zero; cleared otherwise. 

V —Always cleared. 

C —Not affected. 
Description: Writes the contents of an 8-bit register into a 
memory location. 
Addressing Modes: Extended; Direct; Indexed. 



Z — Set if the result is zero; cleared otherwise. 

V — Always cleared. 

C —Not affected. 
Description: Writes the contents of a 16-bit register into two 
consecutive memory locations. 
Addressing Modes: Extended; Direct; Indexed. 



Subtract Memory from Register 

Source Forms: SUBA P SUBB P 
Operation: R'-R-M 
Condition Codes: 

H — Undefined. 

N —Set if the result is negative; cleared otherwise. 

Z —Set if the result is zero; cleared otherwise. 



V —Set if the overflow is generated; cleared otherwise. 

C — Set if a borrow is generated; cleared otherwise. 
Description: Subtracts the value in memory location M from 
the contents of a designated 8-bit register. The C (carry) bit 
represents a borrow and is set to the inverse of the resulting 
binary carry. 
Addressing Modes: Immediate; Extended; Direct; Indexed. 
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Subtract Memory from Register 


V —Set if the overflow is generated; cleared otherwise. 


Source Forms: SUBD P 


C —Set if a borrow is generated; cleared otherwise. 


Operation: R'-R - M:M + 1 


Description: Subtracts the value in memory location 


Condition Codes: 


M:M + 1 from the contents of a designated 16-bit register. 


H— Not affected. 


The C (carry) bit represents a borrow and is set to the 


N —Set if the result is negative; cleared otherwise. 


inverse of the resulting binary carry. 


Z —Set if the result is zero; cleared otherwise. 


Addressing Modes: Immediate; Extended; Direct; Indexed. 


Software Interrupt 


SP'-SP-1,(SP)-DPR 
SP'-SP-1,(SP)-ACCB 


Source Form: SWI 


SP'-SP-1, (SP)-ACCA 


Operation: 


SP'-SP-1, (SP)-CCR 


Set E (entire state will be saved) 


Set I, F (mask interrupts) 


SP'-SP-1,(SP)-PCL 


PC'-(FFFA):(FFFB) 


SP'-SP-I, (SP)-PCH 


Condition Codes: Not affected. 


SP'-SP-I, (SP)-USL 


Description: All of the processor registers are pushed onto 


SP'-SP-1,(SP)-USH 


the hardware stack (with the exception of the hardware stack 


SP-SP-1, (SP)-IYL 


pointer itself), and control is transferred through the software 


SP'-SP-1,(SP)-IYH 


interrupt vector. Both the normal and fast interrupts are 


SP-SP-1, (SP)-IXL 


masked (disabled). 


SP-SP-1, (SP)-IXH 


Addressing Mode: Inherent. 


Software Interrupt 2 


SP'-SP-1, (SP)-DPR 
SP'-SP-1, (SP)-ACCB 


Source Form: SWI2 


SP-SP-1, (SP)-ACCA 


Operation: 


SP'-SP-1,(SP)-CCR 


Set E (entire state saved) 


PC'-(FFF4):(FFF5) 


SP'-SP-1, (SP)-PCL 


Condition Codes: Not affected. 


SP'-SP-1, (SP)-PCH 


Description: All of the processor registers are pushed onto 


SP'-SP-1, (SP)-USL 


the hardware stack (with the exception of the hardware stack 


SP'-SP-I, (SP)-USH 


pointer itself), and control is transferred through the software 


SP-SP-1, (SP)-IYL 


interrupt 2 vector. This interrupt is available to the end user 


SP-SP-1, (SP)-IYH 


and must not be used in packaged software. This interrupt 


SP'-SP-1, (SP)-IXL 


does not mask (disable) the normal and fast interrupts. 


SP-SP-1, (SP)-IXH 


Addressing Mode: Inherent. 


Software Interrupt 3 


SP'-SP-1,(SP)-DPR 


Source Form: SWI3 


SP'-SP-1, (SP)-ACCB 


Operation; 


SP'-SP-1, (SP)-ACCA 


Set E (entire state will be saved) 


SP'-SP-1,(SP)-CCR 


SP'-SP-1,(SP)-PCL 


PC'-(FFF2):(FFF3) 


SP'-SP-1, (SP)-PCH 


Condition Codes: Not affected. 


SP'-SP-I, (SP)-USL 


Description: All of the processor registers are pushed onto 


SP'-SP-1,(SP)-USH 


the hardware stack (with the exception of the hardware stack 


SP-SP-1, CSP)-IYL 


pointer itself), and control is transferred through the software 


SP'-SP-1,(SP)-IYH 


interrupt 3 vector. This interrupt does not mask (disable) the 


SP-SP-1, (SPMXL 


normal and fast interrupts. 


SP-SP-1, (SP)-IXH 


Addressing Mode: Inherent. 



SUB 
(IB-Bit) 



SMI 



SMI2 



SMI 3 
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SYNC 



TFR 



TST 



FIRQ 



Synchronize to External Event 

Source Form: SYNC 
Operation: Stop processing instructions. 
Condition Codes: Not affected. 
Description: When a SYNC instruction is executed, the 
processor enters a synchronizing state, stops processing 
instructions, and waits for an interrupt. When an interrupt 
occurs, the synchronizing state is cleared and processing 
continues. If the interrupt is enabled, and it last three cycles 
or more, the processor will perform the interrupt routine. If 
the interrupt is masked or is shorter than three cycles, the 
processor simply continues to the next instruction. While in 
the synchronizing state, the address and data buses are in 
the high-impedance state. 

This instruction provides software synchronization with a 
hardware process. Consider the following example for high- 
speed acquisition of data: 



FAST 



SYNC 

Interrupt! 

LDA 

STA 

DECB 

BNE 



WAIT FOR DATA 

DISC DATA FROM DISC AND 
CLEAR INTERRUPT 
,X+ PUT IN BUFFER 

COUNT IT, DONE? 
FAST GO AGAIN IF NOT. 



The synchronizing state is cleared by any interrupt. Of 
course, enabled interrupts at this point may destroy the data 
transfer and, as such, should represent only emergency 
conditions. 

The same connection used for interrupt-driven I/O service 
may also be used for high-speed data transfers by setting 
the interrupt mask and using the SYNC instruction as the 
above example demonstrates. 
Addressing Mode: Inherent. 



Transfer Register to Register 

Source Form: TFR R1, R2 

Operation: R1-R2 

Condition Code: Not affected unless R2 is the condition 

code register. 

Description: Transfers data between two designated 

registers. Bits 7-4 of the postbyte define the source register, 

while bits 3-0 define the destination register, as follows: 

0000 = A:B 10O0 = A 

0001 =X 1001 =B 



0010 = Y 

001 1 = US 
0100 = SP 
0101= PC 

01 10 = Undefined 
0111=Undefined 



1010 = CCR 

1011 =DPR 

11 00 = Undefined 
1101= Undefined 
11 10 = Undefined 
1111= Undefined 



Only like size registers may be transferred. (8-bit to 8-bit, 
or 16-bit to 16-bit.) 
Addressing Mode: Immediate. 



Test 

Source Forms: TST O; TSTA; TSTB 
Operation: TEMP-M-0 
Condition Codes: 

H —Not affected. 

N —Set if the result is negative; cleared otherwise. 

Z — Set if the result is zero; cleared otherwise. 

V —Always cleared. 

C —Not affected. 



Description: Set the N (negative) and Z (zero) bits according 
to the contents of memory location M, and clear the V 
(overflow) bit. The TST instruction provides only minimum 
information when testing unsigned values; since no unsigned 
value is less than zero, BLO and BLS have no utility. While 
BHI could be used after TST, it provides exactly the same 
control as BNE, which is preferred. The signed branches are 
available. 

Addressing Modes: Inherent; Extended; Direct; Indexed. 
Comments: The MC6800 processor clears the C (carry) bit. 



Fast Interrupt Request 
(Hardware Interrupt) 

Operation: 

IFF F bit clear, then: SP'^SP- 1. (SP)<-PCL 
SP'«-SP-1,(SP)-PCH 
Clear E (subset state is saved) 
SP'«-SP-1,(SP)<-CCR 
Set F, I (mask further interrupts) 
PC'«-(FFF6):(FFF7) 
Condition Cod es: No t affected. 

Description: A FIRQ (fast interrupt request) with the F (fast 
interrupt request mask) bit clear causes this interrupt 
sequence to occur at the end of the current instruction. The 
program counter and condition code register are pushed 



onto the hardware stack. Program control is transferred 
through the fast interrupt request vector. An RTI (return from 
interrupt) instruction returns the processor to the original 
task. It is possible to enter the fast interrupt request routine 
with the entire machine state saved if the fast interrupt 
request occurs after a clear and wait for interrupt instruction. 
A normal interrupt request has lower priority than the fast 
interrupt request and is prevented from interrupting the 
fast interrupt request routine by automatic setting of the 
I (interrupt request mask) bit. This mask bit could then be 
reset during the interrupt routine if priority was not desired. 
The fast interrupt request allows operations on memory, TST, 
INC, DEC, etc. instructions without the overhead of saving 
the entire machine state on the stack. 
Addressing Mode: Inherent. 
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Interrupt Request 




(Hardware Interrupt) 


Set E (entire state saved) 


Operation: 


SP'_SP-1,(SP)_CCR 


IFF 1 bit clear, then: SP'-SP- 1, (SP)-PCL 


Set I (maskf urther IRQ interrupts) 


SP'-SP-1 


(SPVPCH 


PC'-(FFF8):(FFF9) 


SP'-SP-1 


(SP)-USL 


Condition Codes: Not affected. 


SP'-SP-1 


(SP)^USH 


Description: If the I (interrupt request mask) bit is clear, a 


SP'-SP-1 


(SP)-IYL 


low level on the IRQ input causes this interrupt sequence to 


SP'-SP-1 


(SP)-IYH 


occur at the end of the current instruction. Control is 


SP'-SP-1 


(SPMXL 


returned to the interrupted program using a RTI (return from 
interrupt) instruction. A FIRQ (fast interrupt request) may 


SP'-SP-1 


CSPVIXH 


SP'-SP-1 


(SP)^DPR 


interrupt a normal IRQ (interupt request) routine and be 


SP'«-SP-1 


(SP)-ACCB 


recognized anytime after the interrupt vector is taken. 


SP'^SP-1 


(SPVACCA 


Addressing Mode: Inherent. 


Non-Maskable Interrupt 




(Hardware Interrupt) 


Set I, F (mask interrupts) 
PC'-(FFFC):(FFFD) 


Operation: 


Condition Codes: Not affected. 


SPv-SP-MSPKPCL 


Description: A negative edge on the NMI (non-maskable 


SP-SP-1, (SP)«-PCH 


interrupt) input causes all of the processor's registers 


SP'<-SP-1,(SP).-USL 


(except the hardware stack pointer) to be pushed onto the 


SP'-SP-l.tSPK-USH 


hardware stack, starting at the end of the current instruction. 


SPv-SP-1, (SPMYL 


Program control is transferred through the NMI vector. 


SP'^SP-1,(SPMYH 


Successive negative edges on the NMI input will cause 


SP'^SP-1,(SP)HXL 
SPV-SP-1,(SP)-IXH 


successive NMI operations. Non-maskable interrupt 


operation can be internally blocked by a RESET operation 


SP'-SP-1,(SP)^DPR 


and any non-maskable interrupt that occurs will be latched. If 


SP'~SP-1,(SP).-ACCB 


this happens, the non-maskable interrupt operation will occur 


SP'-SP-1,(SP)-ACCA 


after the first load into the stack pointer (LDS; TFR r,s; EXG 


Set E (entire state save) 


r,s; etc.) after RESET. 


SP'-SP-1,(SP).-CCR 


Addressing Mode: Inherent. 


Restart (Hardware Interrupt) 


Condition Codes: Not affected. 


Operation: 


Description: The processor is initialized (required after 


CCR-X1X1XXXX 


power-on) to start program execution. The starting address 


DPR'-00, 6 


is fetched from the restart vector. 


PC'-(FFFE):(FFFF) 


Addressing Mode: Extended; Indirect. 



IRQ 



NMI 



RESTART 
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Reference M/ 
Sample Programs 

Example 1 



10 ' This is an example of a BASIC program that calls 

20 ' an assembly lanSuaste program to paint the screen 

30 ' yellow. 

40 ' 

60 ' After entering the BASIC program saue it on disk. 

70 ' 

80 ' Run DOS and enter the assembly lansfuaSe prosfram. 

90 ' Use the WD and AD assembler commands to write the 

100 ' source pro 3 ram to disk and to assemble it. 

110 ' 

120 ' After returning to BASIC* load the assembled 

130 ' program into memory with the LOADM command. You 

140 ' must load the assembled program before the BASIC 

150 ' proa ram . 

1G0 ' 

170 ' This program demonstrates how much faster 

180 ' an assembly program can perform a function than a 

190 ' BASIC statement. After you run the program once > 

200 ' delete lines 1030* 1040. 1050* and 1120. Insert 

210 ' this statement 

220 ' 1120 PAINT ( 1 »1 ) >2 

230 ' and see how much longer it takes BASIC to paint 

240 ' the entire screen yellow. 

250 ' 

1000 'Specify the highest address BASIC can use. This 

1010 ' prevents BASIC from usin* the memory that contains 

1020 ' your assembly lanSuaSe subroutine. 

1030 CLEAR 200*16127 

1040 PCLEAR G 'reserve 6 pastes of Graphics memory 

1050 DEF USR0=1G128 'define the subroutine starting address 

10G0 ' The disk driue uses pastes and 1 of video memory. 

1070 ' You must start at pasfe 2* hex 1200. 

1080 PMODE 3.2 'select mode 3* starting at paste 2 

1080 PCLS 'clear the screen 

1100 SCREEN 1*0 'select Sraphics screen* color set 

1110 COLOR 3*1 'set foreground color to blue 

1120 A = USR(0) 'call the assembly lanauaste subroutine 

1130 'draw a frame 
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M / SAMPLE PROGRAMS 



1140 LINE (0 .0)-<255 ,191 ) >PSET >B 

1150 LINE ( 12»12)-<242»178) tPSET.B 

11G0 PAINT <2»2)>4>3 'fill in the frame with red 

1170 FOR X=50 TO 90 STEP 20 'draw top circles 

1180 Y=30:ST=.5:EN=0 ' of bi9 cloud 

1190 GOSUB 5000 

1200 Y=50:ST=0:EN= .5 'draw bottom circles 

1210 GOSUB 5000:NEXT X ' of b i a cloud 

1220 FOR X=1G0 TO 180 STEP 20 

1230 Y=30:ST= .5:EN=0 'draw top circles 

1240 GOSUB 5000 of little cloud 

1250 Y=50:ST=0:EN=.5 'draw bottom circles 

1260 GOSUB 5000:NEXT X of little cloud 

1270 Y=40:ST=.25:EN=.75 'draw left sides of clouds 

1280 GOSUB 5020 

1290 X=150:GOSUB 5020 

1300 X=100:ST=.75:EN=.25 'draw risht sides of clouds 

1310 GOSUB 5020 

1320 X=190:GOSUB 5020 

1330 PAINT (52.30) »3»3 'fill the clouds in with blue 

1340 PAINT ( 162 .30) »3 .3 

1350 R=S0:H=1 : GOSUB 5040 'draw the umbrella 

1360 R=37:H=1 .7:G0SUB 5040 'draw the spoKes of the 

1370 R=15:H=4.7:G0SUB 5040 ' umbrella 

1380 ST=.5:EN=0 'draw the scalloped edses 

1330 FOR X=78 TO 184 STEP 23 ' on the umbrella 

1400 Y=124:G0SUB 5000 

1410 NEXT X 

1420 'draw umbrella handle 

1430 draw "bm121 » 120 5d40 !r2 5d2 !r2 !d2 !r8 5u2 !r2 5u2 »r2 !u3 5 
L2;d2;l2;d2;l25D2;l3;u25L2;u2;l25U40" 

1440 PAINT < 122 .122) ,3 .3 'paint umbrella handle 

1450 PAINT ( 124 .161 ) ,3 

1460 PAINT ( 126 .163) .3 

1470 C=8 'set highest color number 

1480 FOR X=68 TO 180 STEP 24 'paint umbrella panels 

1490 PAINT (X .120) fC .3 

1500 C=C-1 :NEXT X 

1510 'Play the sons "Raindrops Keep Fallin* On My Head" 

1520 GOSUB 6000: PLAY L$ 

1530 GOSUB 8000: PLAY L$ 

1540 PLAY M$:PLAY E*:PLAY N$ 

1550 PLAY G$:PLAY E*:PLAY 0$ 

1560 PLAY P$:PLAY 0*:PLAY E* 

1570 PLAY R$:PLAY S$:PLAY R$ 

1580 PLAY T$:PLAY P$:PLAY E* 

1590 PLAY U$:GOSUB 9000 

1600 PLAY V$:PLAY E$:PLAY E$ 

1610 PLAY W$:PLAY X$ 

1620 'Keep the imaSe on the screen until a Key is pressed. 

1630 Z$=INKEY$ 

1640 IF Z$="" THEN 1630 

1650 END 
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5000 
5010 
5020 
5030 
5040 
5050 
50B0 
5070 
6000 
6010 
6020 
6030 
6040 
6050 
6060 
6070 
6080 
6060 
6100 
6110 
6120 
6130 
6140 
6150 
6160 
6170 
6180 
6190 
6200 
6210 
6220 
6230 
8000 
9010 
9020 
9030 
9040 
9050 



CIRCLE 
RETURN 
CIRCLE 
RETURN 
CIRCLE 
RETURN 

'These 
A$="03 
B$="P8 
C$="03 
D$="03 
E*="P4 
F*="04 
G$="P8 
H$="04 
I*="04 



J* = 
K$ = 
L$ = 



"04 
"04 
"03 



M$="03 
N$="04 



0$=' 
P*=' 
0$=' 
R$=' 
8$=' 
T*=' 
U*=' 



03 
03 
03 
P8 
03 
03 
P2 



y$="03 

W$="03 

X$="03 

PLAY A$ 

PLAY 

PLAY 

PLAY 

PLAY 



D$ 
G* 
1$ 
1$ 



(X»Y) »13»3».45.ST.EN 
(X»Y) >1S»3».75»ST»EN 
(124*124) »R »3»H».5,0 



lines define the notes of the sons. 

L4A5L8. ;a;li6A5L8. ;b-;li6a;l8.g;li6f;l4»;a m 

P4;P85P16" 

Li6;c;o4;L4c;L8. ;c;licc5L8. ;d;li6c;ls. ;c n 
li6a;l4a;b- ;g;f;o4;e;p4" 

L8, ;d;li6c;o3;l8, ;a;li6e;o4;l4,e m 

L4. 5D" 

L4C5L8. ;c;o3;li6a;l8. ;b-" 

L16C5035L8. !B- 5L16A" 

L4. ;c;p4" 
l4f;f;g m 

L2 5A" 

L8. ;c;035L2G" 

L8, ;a»l4b- ;l4a;l4G" 
ls. ;f;l4a;l4. ;g m 
l4a5l8. 5b- ;045l4d5l4c" 

P16" 

li6a;o4;l8d;l4c;l2C" 

l16a;04;l8e;l4d;l2c" 

PI" 

L4f;f;g;l2, ;a" 

ls. ;f;li6f;o4!L8. 5d;li6c;o3;l4F" 

L8a;g;l4f;l2. ;f m 

:play b$:play c* 

:play e$:play f$ 

:play h$:play g$ 

:PLAY J$ 
:PLAY K$ 



RETURN 



00100 * Use EDTASM or EDTASMOV to enter this program. Saue 



00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
0022 



* 

* 
* 
* 
* 
* 
* 
# 
* 
* 



Use 



the program on disk with WD command and 
assemble the program with AD command. Do not 
use the SR switch because this program is 
called from BASIC » not executed from DOS. 

the LOADM command to load the assembled code 

into memory before you load the BASIC program. 
The ORG statement tells BASIC where in memory 
to load the p ro sr ram . 



ORG 



*3F« 



* 
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00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
00410 
00420 
00430 



* Put 

* 

* 

# 

* 

* 

* 

3TART 



* 

* 3tore 

* 

* 

* 

5CREEN 



* 
DONE 



the hex code for a yellow point (55H) in 

register A and the address of the first byte 

of video memory (1200) in register X. 

The first byte of video memory is 1200 hex 

because the disK drive uses memory up to'that 

address. 



LDA 
LDX 



*$55 
#$1200 



the yellow dot at the 
address and increment 
memory address* 



current video memory 
X to the next video 



3TA 
CMPX 
BNE 
RT8 

EOU 
END 



»X + 

«$2FFF 

SCREEN 



* 
START 



the end of video memory? 
continue to store dots 

and 



Is it 

If no 

If yes i exit subprogram 

and return to BASIC 



Example 2 



20 ' 

30 ' 

40 ' 

50 ' 

60 ' 

70 ' 

80 ' 

90 ' 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 



After enteritis the BASIC 
Run 



DOS and 
the WD 
source 



enter the as 
and AD assem 
program to d 



After returning" to BASIC 
program into memory 
' must load the assem 
' p r o sf r a m . 

' Specify the highest add 

' prevents BASIC from 

' your assembly lanSu 

CLEAR 200. 18127 

DEF USR0=16128 

CLS 

' Print a prompting messa 

INPUT "Press CENTER] when 

A=USR(0) 

'Print another prompting" 

INPUT "Want to do it aSai 

'If operator types yes > s 

IF A$="YES" THEN 20 ELSE 



program save it on disK. 

sembly lang"uase program. Use 
bier commands to write the 
isK and to assemble it. 

t load the assembled 
with the LOADM command. You 
bled program before the BASIC 



ress BASIC can use. This 

usind the memory that contains 
ag"e subroutine. 

'define address of subroutine 

'clear the screen 
s(e and wait for a response, 
ready"! A$ 

'call subroutine 
message and wait for a response 
n"5 A$ 

tart over. Otherwise end. 
END 
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00100 
00110 

00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
00410 
00420 
00430 
00440 



* Use 
# 
# 
* 
* 
* 

* Use 
* 
* 
# 
* 

* 

* Put 
# 
* 
* 
3TART 

* 

* Stor 
* 

* 
* 
5CREEN 



* 
DONE 



EDTA3M or EDTASMOM to en 
the program on disk wi 
assemble the program w 
use the 5R switch beca 
called from BASIC » not 

the LOADM command to loa 
into memory before you 
The ORG statement tell 
to load the program. 



ter this program. Saue 
th WD command and 
ith AD command* Do not 
use this program is 
executed from DOS. 

d the assembled code 

load the BASIC program, 
s BASIC where in memory 



ORG 



$3F00 



the hex code for a red c 
register A and the add 
of video memory (400) 



heckerboard 
ress of the 
in register 



in 

first byte 

X. 



LDA 
LDX 



«$0F9 
#$400 



e the red checkerboard a 
memory address and inc 
video memory address. 



STA »X + 
CMPX #$600 
BNE SCREEN 



RTS 

EQU 
END 



Is it 
If n o » 
checke 
If yes 
and re 



t the cur rent v i deo 
rement X to the next 



the end of video memory? 

continue to store red 
rboa rds 

> exit subprogram and 
turn to BASIC 



* 
START 
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SECTION VI 



PROGRAM LISTING 



SECTION VI 



PROGRAM LISTING 



This section provides a complete source list- 
ing of the DOS program. 
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PAGE 003 DOC 



.SA!0 



00630 


00112 


00640 


00113 


00650 


00114 


00660 


00115 


00670 


00116 


00680 


00117 


00690 


00118 


00700 


00119 


00710 


00120 


00720 


00121 


00730 


00122 


00740 


00123 


00750 


00124 


00760 


00125 


00770 


00126 


00780 


00127 


00790 


00128 


00800 


00129 


00810 


00130 


00820 


00131 


00830 


00132 


00840 


00133 


00850 


00134 


00860 


00135 


00870 


00136 


00880 


00137 


00890 


00138 


00900 


00139 


00910 


00140 


00920 


00141 


00930 


00142 


00940 


00143 


00950 


00144 


00960 


00145 


00970 


00146 


00980 


00147 


00990 


00148 


01000 


00149 


01010 


00150 


01020 


00151 


01030 


00152 


01040 


00153 


01050 


00154 


01060 


00155 


01070 


00156 


01080 


00157 


01090 


00158 


01100 


00159 


01110 


00160 


01120 


00161 


01130 


00162 


01140 


00163 


01150 


00164 


01160 


00165 


01170 


00166 


01180 


00167 


01190 


00168 


01200 


00169 



#**»*#*#****#»*»*****»******»******♦*»*»* 
♦ INSTRUCTIONS FOR USE 



***#♦♦****#**#***♦*****♦»**♦*»**♦****#****#*****************##*##*♦»****#* 

* ERROR NUMBERS AND THEIR MEANING 

* (THE EQUATES ARE USED SO THAT ERRORS CAN BE RESEARCHED USING XREF LIST) 

* DEFINITIONS START WITH BASIC LINE NUMBER 256 IN DOS 
»*♦*»**»****♦*•##*#*#*»♦»**»#»#*##***#**#**##*******»**#**************#*** 



0000 


A 


ERR0 


ESU 





0001 


A 


ERR1 


E<SU 


1 


0002 


A 


ERR2 


EQU 


2 


0003 


A 


ERR3 


EQU 


3 


0004 


A 


ERR4 


EQU 


4 


0005 


A 


ERRS 


EQU 


5 


0006 


A 


ERR6 


EQU 


6 


0007 


A 


ERR7 


ESU 


7 


0008 


A 


ERR8 


ESU 


8 


0009 


A 


ERR9 


ESU 


9 


000A 


A 


ERR10 


ESU 


10 


000B 


A 


ERR11 


ESU 


11 


000 C 


A 


ERR12 


ESU 


12 


000D 


A 


ERR13 


ESU 


13 


000E 


A 


ERR14 


EQU 


14 


000F 


A 


ERR15 


ESU 


15 


0010 


A 


ERR16 


EQU 


16 


0011 


A 


ERR17 


EQU 


17 


0012 


A 


ERR18 


EQU 


18 


0013 


A 


ERR19 


EQU 


19 


0014 


A 


ERR20 


ESU 


20 


0015 


A 


ERR21 


EQU 


21 


0016 


A 


ERR22 


ESU 


22 


0017 


A 


ERR23 


ESU 


23 


0018 


A 


ERR24 


EQU 


24 


0019 


A 


ERR25 


EQU 


25 


001A 


A 


ERR26 


EQU 


26 


001B 


A 


ERR27 


ESU 


27 


001 C 


A 


ERR28 


ESU 


28 


001D 


A 


ERR29 


EQU 


29 


001E 


A 


ERR30 


EQU 


30 


001F 


A 


ERR31 


EQU 


31 



256 NO ERRORS 

257 I/O ERROR 
I/O ERROR 
I/O ERROR 
I/O ERROR 
I/O ERROR 

262 I/O ERROR 

263 I/O ERROR 

264 I/O ERROR 



258 

259 
260 
261 



DRIVE NOT READY 

WRITE PROTECTED 

WRITE FAULT 

SEEK ERROR OR RECORD NOT FOUND 

CRC ERROR 

LOST DATA 

UNDEFINED BIT 1 

UNDEFINED BIT 

265 REGISTER ARGUMENT INVALID 

266 FILE'S DIRECTORY ENTRY NOT FOUND 

267 DIRECTORY IS FULL 

268 FILE WAS CREATED BY "OPEN" FUNCTION 

269 FILE NOT CLOSED AFTER CHANGES 

270 ATTEMPTING TO ACCESS AN UNOPENED FILE 

271 ATTEMPT TO READ - READ PROTECTED 

272 RBA OVERFLOW (EXCEEDS 3 BYTES - 16.777,216) 

273 ACCESS BEYOND EOF - EXTENSION NOT ALLOWED 

274 FAT REWRITE ERROR 

275 ATTEMPT TO CLOSE UNOPENED FILE 

276 CAN'T ACCESS RANDOMLY - REC SIZE IS ZERO! 

277 ATTEMPT TO WRITE - WRITE PROTECTED 

278 CAN'T EXTEND FILE - DISK CAPACITY EXCEEDED 

279 ERROR WHILE LOADING OVERLAY - FUNCTION NOT PERFORMED 

280 INSUFFICIENT PRINT SPACE ALLOCATED 

281 I/O ERROR DURING BASIC LINE READ 

282 PROGRAM'S LOAD ADDRESS IS TOO LOW 

283 FIRST BYTE OF PROGRAM FILE NOT EQUAL TO ZERO 

284 SPACE FOR BUFFERED KBD NOT BIG ENOUGH 

285 NOT ENOUGH MEMORY 

286 OUTPUT FILE ALREADY EXISTS 

287 WRONG DISKETTE 
# 

* DISK DATA CONTROL BLOCK (DCB) FORMAT 
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INSTRUCTIONS 



01210 


00170 


01220 


00171 


01230 


00172 


01240 


00173 


01250 


00174 


01260 


00175 


01270 


00176 


01280 


00177 


01290 


00178 


01300 


00179 


01310 


00180 


01320 


00181 


01330 


00182 


01340 


00183 


01350 


00184 


01360 


00185 


01370 


00186 


01380 


00187 


01390 


00188 


01400 


00189 


01410 


00190 


01420 


00191 


01430 


00192 


01440 


00193 


01450 


00194 


01460 


00195 


01470 


00196 


01480 


00197 


01490 


00198 


01500 


00199 


01510 


00200 


01520 


00201 


01530 


00202 


01540 


00203 


01550 


00204 


01560 


00205 


01570 


00206 


01580 


00207 


01590 


00208 


01600 


00209 


01610 


00210 


01620 


00211 


01630 


00212 


01640 


00213 


01650 


00214 


01660 


00215 


01670 


00216 


01680 


00217 


01690 


00218 


01700 


00219 


01710 


00220 


01720 


00221 


01730 


00222 


01740 


00223 


01750 


00224 


01760 


00225 


01770 


00226 


01780 


00227 



* 

* BYTES CONTENTS 



8-10 
11 



12 
13 



PGM.3=TEXT ED. SOURCE) 



16 



* 19 



THESE ITEMS ARE A COPY OF DISK DIRECTORY ENTRY 
0-7 FILENAME 

FILE EXTENSION 
FILE TYPE 

<0=BASIC PGM. 1=B ASIC DATA, 2=MACHINE LANG. 
ASCII FLAG <0=BINARY, FF = ASCII FILE) 
NUMBER OF FIRST CLUSTER IN FILE 
14-15 NUMBER OF BYTES IN USE IN LAST SECTOR OF FILE 
THESE ITEMS WERE ADDED. USING LAST 16 BYTES OF DIRECTORY ENTRY 
CURRENT FILE STATUS 
BIT ON ALLOWS READS 
ON ALLOWS WRITES 

ON ALLOWS FILE CREATE IF NON-EXISTANT 

ON ALLOWS FILE EXTENSION BEYOND EOF ON ACCESS ATTEMPTS 
ON MEANS WORK FILE - DELETE FILE WHEN CLOSED 
ON PREVENTS REWRITE OF FAT EVERY TIME A SECTOR IS ADDED TO 
THE FILE. (MINOR POWER FAILURE INCONSISTANCY COULD RESULT) 
BIT 6 ON MEANS I/O BUFFER IS SHARED. EACH LOGICAL I/O REQUIRES 

A PHYSICAL I/O 
BIT 7 RESERVED FOR FUTURE OPTION(LIKE RELEASE SPACE WHEN FILE SHORTENED) 
(ALL BITS OFF = FILE CLOSED) 
17-18 LOGICAL RECORD SIZE (AS OF LAST TIME FILE WAS CLOSED) 

ZERO MEANS VARIABLE LENGTH WITH RECORDS TERMINATED BY THE 

DELIMITER STORED BELOW. 
*FFFF MEANS VARIABLE LENGTH WITH FIRST TWO BYTES OF RECORD 

CONTAINING SIZE OF THE REST OF THE RECORD. 
ALL OTHER VALUES MEAN FIXED LENGTH OF SPECIFIED SIZE. 
VARIABLE LENGTH RECORD TERMINATOR 



BIT 
BIT 
BIT 
BIT 
BIT 



* 20-31 AT PRESENT. UNUSED PART OF DIRECTORY ENTRY - USE WITH CAUTION. 
* 

» THESE ITEMS ARE USED FOR PHYSICAL I/O PARAMETERS 

* 32 LAST I/O OPCD 

* 33 LAST I/O DRIVE 

* 34 LAST I/O TRACK 

* 35 LAST I/O SECTOR 

* 36-37 LAST I/O BUFFER POINTER 

* 38 LAST I/O RESULT CODE 
* 

» THESE ITEMS ARE FOR LOGICAL USE 

* 39-40 LOGICAL RECORD BUFFER (CAN BE SAME AS DCBBUF IF DCBRSZ=256) 

* 41-42 LAST I/O PHYSICAL RECORD NUMBER (BEFORE XLATE INTO SECTOR WITHIN 

* GRANULE). THIS IS THE RECORD CURRENTLY IN THE BUFFER. 

* 43-45 CURRENT RELATIVE BYTE ADDRESS (RBA) OF FILE DATA POINTER 

* 46-47 CURRENT LOGICAL RECORD NUMBER 

» 48 MODIFIED DATA TAG - SET NON-ZERO WHEN BUFFER CONTENTS CHANGED 
* 

* EQUATES FOLLOW FOR MEANINGFUL SOURCE CODE WHEN ACCESSING DCB 

* IE: STD DCBLRN.U SAVE NEW LOGICAL RECORD NUMBER 

* (BETTER THAN STD 46. U ) 



0000 


A 


DCBFNM 


EQU 





FILE NAME 


0008 


A 


DCBFEX 


EQU 


8 


FILE NAME EXTENSION 


000B 


A 


DCBFTY 


EQU 


11 


FILE TYPE 


000 C 


A 


DCBASC 


EQU 


12 


ASCII CODE 


000D 


A 


DCBFCL 


EQU 


13 


FIRST CLUSTER NUMBER 
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DOS 



INSTRUCTIONS 



01790 
01800 
01810 
01820 
01830 
01840 
01850 
01860 
01870 
01880 
01890 
01900 
01910 
01920 
01930 
01940 
01950 
01960 
01970 
01980 
01990 
02000 
02010 
02020 
02030 
02040 
02050 
02060 
02070 
02080 
02090 
02100 
02110 
02120 
02130 
02140 
02150 
02160 
02170 
02180 
02190 
02200 
02210 
02220 
02230 
02240 
02250 
02260 
02270 
02280 
02290 
02300 
02310 
02320 
02330 
02340 
02350 
02360 



00228 
00229 
00230 
00231 
00232 
00233 
00234 
00235 
00236 
00237 
00238 
00239 
00240 
00241 
00242 
00243 
00244 
00245 
00246 
00247 
00248 
00249 
00250 
00251 
00252 
00253 
00254 
00255 
00256 
00257 
00258 
00259 
00260 
00261 
00262 
00263 
00264 
00265 
00266 
00267 
00268 
00269 
00270 
00271 
00272 
00273 
00274 
00275 
00276 
00277 
00278 
00279 
00280 
00281 
00282 
00283 
00284 
00285 



NUMBER OF BYTES USED IN LAST SECTOR 

CURRENT FILE STATUS 

RECORD SIZE 

VAR LEN RECORD TERMINATOR 

MAX RBA 

USER AREA 

OPERATION CODE 

DRIVE 

TRACK 

SECTOR 

I/O BUFFER ADDRESS 

I/O RESULT CODE 

LOGICAL RECORD BUFFER ADDRESS 

PHYSICAL RECORD NUMBER IN BUFFER 

CURRENT RELATIVE BYTE ADDRESS 

CURRENT LOGICAL RECORD NUMBER 

MODIFIED DATA TAG 

SIZE OF DCB (CURRENTLY 50 BYTES) 



**»♦*************»****»♦***»*»**♦*♦****»♦»**»*♦**»»*♦ 
* EQUATES TO SUPPORT ROUTINES IN ROM OPERATING SYSTEM 
*******»*»**♦*****»***»****#**»»*»♦******»♦»#**#*»»*» 



000E 


A 


DCBNLS 


EQU 


14 


0010 


A 


DCBCFS 


EQU 


16 


0011 


A 


DCBRSZ 


EQU 


17 


0013 


A 


DCBTRM 


EQU 


19 


0014 


A 


DCBMRB 


EQU 


20 


0017 


A 


DCBUSR 


EQU 


23 


0020 


A 


DCBOPC 


EQU 


32 


0021 


A 


DCBDRV 


EQU 


33 


0022 


A 


DCBTRK 


EQU 


34 


0023 


A 


DCBSEC 


EQU 


35 


0024 


A 


DCBBUF 


EQU 


36 


0026 


A 


DCBOK 


EQU 


38 


0027 


A 


DCBLRB 


EQU 


39 


0029 


A 


DCBPRN 


EQU 


41 


002B 


A 


DCBRBA 


EQU 


43 


002E 


A 


DCBLRN 


EQU 


46 


0030 


A 


DCBMDT 


EQU 


48 


0031 


A 


DCBSZ 


EQU 


DCBMDT+1 



A000 


A 


POL CAT 


EQU 


*A000 


0152 


A 


ROLTAB 


EQU 


$152 


A00A 


A 


JOYIN 


EQU 


*A00A 


A006 


A 


BLKIN 


EQU 


*A006 


A004 


A 


CSRDON 


EQU 


*A004 


A00C 


A 


WRTLDR 


EQU 


*A00C 


A008 


A 


BLKOUT 


EQU 


*A008 


007 C 


A 


BLKTYP 


EQU 


*7C 


007D 


A 


BLKLEN 


EQU 


*7D 


007E 


A 


CBUFAD 


EQU 


*7E 


010C 


A 


IRQ 


EQU 


*10C 


015A 


A 


POTS 


EQU 


*15A 


011A 


A 


ALPHLK 


EQU 


*11A 



KBD ROLLOVER TABLE 



JOYSTICK POT VALUES 

KBD RTN'S ALPHA LOCK SWITCH 



* EQUATES TO XREF USE OF PIA'S 



FF21 


A 


U4ACR 


EQU 


*FF21 CONTROL REG 


FF20 


A 


U4ADR 


EQU 


*FF20 DATA REG 


FF20 


A 


U4ADD 


EQU 


*FF20 DATA DIRECTION REG 


FF23 


A 


U4BCR 


EQU 


*FF23 


FF22 


A 


U4BDR 


EQU 


*FF22 


FF22 


A 


U4BDD 


EQU 


*FF22 


FF01 


A 


U8ACR 


EQU 


*FF01 


FF00 


A 


U8ADR 


EQU 


$FF00 


FF00 


A 


U8ADD 


EQU 


*FF00 


FF03 


A 


U8BCR 


EQU 


*FF03 


FF02 


A 


U8BDR 


EQU 


*FF02 


FF02 


A 


UBBDD 

* 

* MISC 


EQU 


SFF02 






ADDITIONAL EQUATES 


0035 


A 


ENABLE 


EQU 


7.00110101 


0034 


A 


DSABLE 


EQU 


X001 10100 






» COLOR VALUES 


0000 


A 


BUFF 


EQU 


X00000000 


0055 


A 


CYAN 


EQU 


'/.01010101 
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02370 


00286 


02380 


00287 


02390 


00288 


02400 


00289 


02410 


00290 


02420 


00291 


02430 


00292 


02440 


00293 


02450 


00294 


02460 


00295 


02470 


00296 


02480 


00297 


02490 


00298 


02500 


00299 


02510 


00300 


02520 


00301 


02530 


00302 


02540 


00303 


02550 


00304 


02560 


00305 


02570 


00306 


02580 


00307 


02590 


00308 


02600 


00309 


02610 


00310 


02620 


00311 




00312 




00313 




00314 


02660 


00315 


02670 


00316 


02680 


00317 


02690 


00318 


02700 


00319 


02710 


00320 


02720 


00321 


02730 


00322 


02740 


00323 


02750 


00324 


02760 


00325 


02770 


00326 


02780 


00327 


02790 


00328 


02800 


00329 


02810 


00330 


02820 


00331 


02830 


00332 


02840 


00333 


02850 


00334 


02860 


00335 


02870 


00336 


02880 


00337 


02890 


00338 


02900 


00339 


02910 


00340 


02920 


00341 


02930 


00342 


02940 


00343 



00AA 


A 


MGNTA 


EQU 


7.10101010 


00FF 


A 


ORANGE 


EQU 


XI 11 111 11 


0000 


A 


GREEN 


EQU 


7.00000000 


0055 


A 


YELLOW 


EQU 


7.01010101 


00AA 


A 


BLUE 


EQU 


7.10101010 


00FF 


A 


RED 


EQU 


7.11111111 






* CODES RETURNED BY 


POL CAT FOR FUNCTION 1 


005 E 


A 


UP 


EQU 


*5E 


UP ARROW 


000A 


A 


DOWN 


EQU 


*0A 


DOWN ARROW 


0009 


A 


RIGHT 


EQU 


S09 


RIGHT ARROW 


0008 


A 


LEFT 


EQU 


*08 


LEFT ARROW 


005F 


A 


SUP 


EQU 


*5F 


SHIFT UP ARROW 


005 B 


A 


SDOWN 


EQU 


*5B 


SHIFT DOWN ARROW 


005D 


A 


SRIGHT 


EQU 


*5D 


SHIFT RIGHT ARROW 


0015 


A 


SLEFT 


EQU 


*15 


SHIFT LEFT ARROW 


0003 


A 


BREAK 


EQU 


*03 


BREAK KEY 


000C 


A 


CLEAR 


EQU 


*0C 


CLEAR KEY 


005 C 


A 


SCLEAR 


EQU 


*5C 


SHIFTED CLEAR 


000D 


A 


ENTER 


EQU 


$0D 


ENTER KEY 


0040 


A 


AT 


EQU 


$40 


"3* KEY 


0013 


A 


SAT 


EQU 


*13 


SHIFTED -a- KEY 



* DOS MACRO AND LOGICAL EQUATES 

DOS MACR CALL A DOS FUNCTION 

2630 LDA #\1 OPTION 

2640 JSR C\0] INDIRECT FUNCTION ADDR 

2650 ENDM 

* 

» EQUATES USED WITH DOS MACRO 
* 

* THE FOLLOWING USED WITH "OPEN" 
OPEN FUNCTION 

ALLOWS FILE CREATION ON OPEN IF NOT FOUND 
ALLOWS EXTENSION OF FILE TO POINT OF ACCESS 
USED TO SIGNIFY THAT READS ARE ALLOWED 
SHORTER FORM OF ABOVE 
ALLOWS WRITES 

CREATE+EXTEND+OUT USUAL COMBINATION FOR OUTPUT FILES 

CAUSES FILE TO BE KILLED WHEN CLOSED (WORK FILE) 

MINIMIZES FAT REWRITES 

USED WHEN 2 OR MORE FILES SHARE THE SAME I/O BUFFER 

TO READ AN EXISTING FILE 
TO CREATE & EXTEND AN OUTPUT FILE 
TO UPDATE AN EXISTING FILE (NO EXTENSIONS) 
» DOS OPEN INPUT+OUTPUT+WORK TO CREATE. EXTEND. READ & WRITE AND KILL 

* WHEN CLOSED (A WORK FILE) 

* "SHARE" CAN BE ADDED TO ANY OF THE ABOVE EXAMPLES IF 2 OR MORE FILES 

« WILL BE USING THE SAME I/O BUFFER AT THE SAME TIME. THIS OPTION CAUSES 

* A PHYSICAL I/O TO REFRESH THE BUFFER WITH EVERY LOGICAL I/O OPERATION. 
» WITHOUT THIS OPTION. SEVERAL LOGICAL READS OR WRITES TO OR FROM THE 

« SAME PHYSICAL SECTOR CAN BE DONE WITH A SINGLE PHYSICAL I/O. "SHARE" 

* INCREASES THE AMOUNT OF ACTUAL I/O ACTIVITY. BUT ALLOWS USE OF MANY 

» FILES AT THE SAME TIME WITH MUCH LESS MEMORY REQUIREMENTS FOR BUFFERS. 
* 

* USED WITH "CLOSE" FUNCTION 



0600 


A 


OPEN EQU 


*600 


0004 


A 


CREATE EQU 


4 


0008 


A 


EXTEND EQU 


8 


0001 


A 


INPUT EQU 


1 


0001 


A 


IN EQU 


1 


0002 


A 


OUT EQU 


2 


000E 


A 


OUTPUT EQU 


CREA' 


0010 


A 


WORK EQU 


16 


0020 


A 


FAST EQU 


32 


0040 


A 


SHARE EQU 
* EXAMPLES: 


64 






* DOS OPEN 


INPUT 






* DOS OPEN 


OUTPUT 






* DOS OPEN 


IN+OUT 
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02950 


00344 


02960 


00345 


02970 


00346 


02980 


00347 


02990 


00348 


03000 


00349 


03010 


00350 


03020 


00351 


03030 


00352 


03040 


00353 


03050 


00354 


03060 


00355 


03070 


00356 


03080 


00357 


03090 


00358 


03100 


00359 


03110 


00360 


03120 


00361 


03130 


00362 


03140 


00363 


03150 


00364 


03160 


00365 


03170 


00366 


03180 


00367 


03190 


00368 


03200 


00369 


03210 


00370 


03220 


00371 


03230 


00372 


03240 


00373 


03250 


00374 


03260 


00375 


03270 


00376 


03280 


00377 


03290 


00378 


03300 


00379 


03310 


00380 


03320 


00381 


03330 


00382 


03340 


00383 


03350 


00384 


03360 


00385 


03370 


00386 


03380 


00387 


03390 


00388 


03400 


00389 


03410 


00390 


03420 


00391 


03430 


00392 


03440 


00393 


03450 


00394 


03460 


00395 


03470 


00396 


03480 


00397 


03490 


00398 


03500 


00399 


03510 


00400 


03520 


00401 



0602 
0000 



0604 
0606 
0001 
0000 
0000 
0002 
0008 



0608 



0001 



000E 



000A 



CLOSE EQU 
IT EQU 

* EXAMPLE: 

* DOS CLOSE, IT 



$602 




CLOSE A FILE OPTIONS NOT USED 



* USED WITH "READ" 
READ EQU «604 
WRITE EQU *606 
RBA EQU 1 
RECORD EQU 
REC EQU 
UPDATE EQU 2 
NOW EQU 8 

* EXAMPLES: 

* DOS READ, RECORD 



DOS READ, RBA 



TO CLOSE A FILE 

AND "WRITE" FUNCTIONS 
READ A RECORD 
WRITE A RECORD 
TO READ USING REL BYTE ADDR 



TO PREVENT ADVANCING REC NBR OR RBA AFTER A READ 

1 = ENSURE I/O BUFFER IS WRITTEN TO DISK AFTER LOGICAL WRITE 

TO RANDOMLY READ BY RECORD NUMBER 
(FIXED LENGTH RECS ONLY) 

(USE THIS FOR NORMAL SEQUENTIAL READ OF FIXED LENGTH) 
TO READ THE RECORD POINTED AT BY RBA 
(REQUIRED IF USING VARIABLE LENGTH RECORDS) 
TO READ BY REC NBR WITHOUT ADVANCING REC NBR 



* DOS READ, UPDATE 

* DOS READ, RBA+UPDATE TO READ THE RECORD POINTED AT BY RBA S. NOT CHANGE RBA 



DOS WRITE, REC 
DOS WRITE, RBA 
DOS WRITE, UPDATE 

DOS WRITE, RBA+NOW 



WRITE VIA RECORD NUMBER (FIXED LENGTH ONLY) 
WRITE FIXED OR VARIABLE RECORD 

UNLIKELY OPTION - WRITES RECORD BUT DOES NOT CHANGE 
RBA OR REC NUMBER. COULD BE REWRITTEN AGAIN. 
SAME AS: DOS WRITE, RBA FOLLOWED BY DOS RELSE, IT 



A RELSE EQU 



*60B USE TO RELEASE I/O BUFFER WITHOUT CLOSING FILE 

* IF CONTENTS OF BUFFER HAVE BEEN CHANGED, IT IS REWRITTEN. THEN DCBPRN 

* IS SET TO *FFFF TO ENSURE A PHYSICAL I/O BEFORE THE NEXT LOGICAL I/O. 

* USE THIS FUNCTION WHEN USER IS CONTROLLING A SHARED BUFFER. 

* EXAMPLE: 

* DOS RELSE, IT 
» 

» USED WITH OVERLAYABLE FUNCTIONS 

USE TO LOAD IF NECESSARY, THEN EXECUTE AN OVERLAY 

USE TO XFER CONTROL FROM ONE OVERLAY TO ANOTHER IN SAME AREA 

USE TO LOAD A SYSTEM OVERLAY - IT IS LOADED AT THE 



060A 


A 


DO EQU 


*60A 


060C 


A 


GO EQU 


*60C 


060E 


A 


LOAD EQU 

* EXAMPLE: 

* DOS DO, MAP 


*60E 



* THE FOLLOWING USED WITH "LOAD" AND "DO" FUNCTIONS 
INIT EQU 1 INITIALIZATION OF DOS 

* EXAMPLE: 

* DOS DO, INIT EXIT PROGRAM & RE-INITIALIZE DOS 

* NOTE: STACK AND OLYLOC SHOULD BE RESET BEFORE USING THIS OVERLAY 



DISPLAY DOS MAIN MENU 



MENU EQU 14 

* EXAMPLE: 

* LDS #STACK 

* LDD #OVRLAY WHERE OVERLAY AREA SHOULD START 

* STD >OLYLOC 

* DOS DO, MENU 
♦ 

MAP EQU 10 DISPLAY BASIC LINES 

* EXAMPLE: 

* LDD #280 FIRST LINE NUMBER TO BE DISPLAYED 

* LDY #283 LAST LINE TO BE DISPLAYED 
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03530 


00402 


03540 


00403 


03550 


00404 


03560 


00405 


03570 


00406 


035 80 


00407 


03590 


00408 


03600 


00409 


03610 


00410 


03620 


00411 


03630 


00412 


03640 


00413 


03650 


00414 


03660 


00415 


03670 


00416 


03680 


00417 


03690 


004 IB 


03700 


00419 


03710 


00420 


03720 


00421 


03730 


00422 


03740 


00423 


03750 


00424 


03760 


00425 


03770 


00426 


03780 


00427 


03790 


00428 


03800 


00429 


03810 


00430 


03820 


00431 


03830 


00432 


03840 


00433 


03850 


00434 


03860 


00435 


03870 


00436 


03880 


00437 


03890 


00438 


03900 


00439 


03910 


00440 


03920 


00441 


03930 


00442 


03940 


00443 


03950 


00444 


03960 


00445 


03970 


00446 


03980 


00447 


03990 


00448 


04000 


00449 


04010 


00450 


04020 


00451 


04030 


00452 


04040 


00453 


04050 


00454 


04060 


00455 


04070 


00456 


040S0 


00457 


04090 


00458 


04100 


00459 



0005 



000B 



000C 



0011 



0610 
0612 
0614 



0616 



LDU <CURSOR STARTING DISPLAY ADDRESS 

(IF STARTING ADDR IS ZERO. SCREEN WILL BE CLEARED FIRST AND ROUTINE 
WILL EXIT WITH U-3FIRST CHAR AFTER FIRST LEFT BRACKET ON SCREEN) 
PSHS D,Y,U (PARAMETERS ARE PASSED IN THE STACK) 
DOS DO.BASMSG 
PULS D.Y.U NORMALIZE STACK 
BNE ERROR BRANCH ON ANY FAILURE IF DESIRED 



RUN IP EQU 2 

* EXAMPLE: 

* DOS DO . RUN IP 
* 

CPYFLE EQU 5 

* EXAMPLE: 

* DOS DOi CPYFLE (IF 



KEY IN A NAME AND RUN PGM 

GET INFO FROM USER & COPY A FILE 
■GO" USED. DOS MENU FOLLOWS COPY FUNCTION) 
INPUT A MAPPED FIELD 



FIELDI EQU 11 

* EXAMPLE: 

» LDX DEST WHERE THE DATA GOES IN MEMORY 

* LDU FLDADR POINT TO FIELD ON SCREEN 

* DOS DO. FIELDI INPUTS THE FIELD 

* B IS RETURNED CONTAINING LAST KEYSTROKE ENTERED 



GIVEN USRDCB CONTENTS. LOAD ROOT & EXECUTE PROGRAM 



EXEC EQU 12 

* EXAMPLE: 

* (WHATEVER LOGIC TO PUT NAME IN DCB AT "USRDCB") 

* DOS GO, EXEC JUMP TO LOAD & EXECUTE OVERLAY 



000D 


A REALTM EQU 

* 
A BUFPRT EQU 


000F 



13 



15 



CLOCK DISPLAY OVERLAY (SEE SKEL FOR EXAMPLE OF USE) 
BUFFERED PRINT OVERLAY 



* EXAMPLE: 

» LDU #SIZE (TOTAL MEMORY TO BE USED (ROUTINE + BUFFER) 

* (ROUTINE IS ABOUT 220 BYTES) 

* DOS DO, BUFPRT (SETS IT UP - OVERLAY & BUFFER PROTECTED FROM 

* BEING OVERLAYED). 

* FROM THIS POINT ON. CHARACTERS PRINTED BY CALLING "PRNT" WILL GO 

* THROUGH BUFFERED I/O. TO WRAP UP AT EOJ. DO THIS: 
» CLRA 

* JSR C PRNT 1 REQUEST TO END BUFFERING. 

* THIS WILL CAUSE "PRNT" TO WAIT UNTIL THE BUFFER IS EMPTIED (PRINTER 

* HAS CAUGHT UP), AND THEN OVERLAY AND BUFFER AREA ARE RELEASED. 
* 

A COPY EQU 17 COPY A FILE 

* GIVEN: 

* U->SOURCE FILE DCB (NOT OPENED) 

* Y->DEST FILE DCB (NOT OPENED) 

* B (BIT 0) - OFF IF NO DISKETTE SWAPPING, ON FOR DISKETTE SWAPPING 

* RETURNED A=ERROR NUMBER 
# 

* SIMILAR FUNCTIONS FOR USING USER OVERLAYS 

A DOUSR EQU S610 LOAD IF NECESSARY & EXECUTE USER OVERLAY 
A GOUSR EQU *612 JUMP TO A DIFFERENT OVERLAY 
A LODUSR EQU *614 LOAD USER OVERLAY 

* USER SHOULD PROVIDE EQUATES FOR HIS OVERLAYS HERE 



A ERROR EQU 



*616 



JSR HERE FOR DISPLAY OF ERR MSG 



PAGE 009 DOC 



.SAS0 



DOS 



INSTRUCTIONS 



04110 


00460 


04120 


00461 


04130 


00462 


04140 


00463 


04150 


00464 


04160 


00465 


04170 


00466 


04180 


00467 


04190 


00468 


04200 


00469 


04210 


00470 


04220 


00471 


04230 


00472 


04240 


00473 


04250 


00474 


04260 


00475 


04270 


00476 


04280 


00477 


04290 


00478 


04300 


00479 


04310 


00480 




004B1 




00482 


04340 


00483 


04350 


00484 




00485 




00486 


04380 


00487 


04390 


00488 




00489 




00490 




00491 




00492 


04440 


00493 


04450 


00494 




00495 




00496 




00497 


04490 


00493 


04500 


00499 




00500 




00501 




00502 


04540 


00503 


04550 


00504 




00505 




00506 




00507 


04590 


00508 


04600 


00509 




00510 




00511 


04630 


00512 


04640 


00513 


04650 


00514 


04660 


00515 


04670 


00516 


04680 


00517A 015E 



0618 
0001 
0000 



061A 



TURN ON/OFF TIME ROUTINE 



061E 



A TIME EQU *61B 
A ON ESU 1 
A OFF ESU 

* EXAMPLE: 

* LDU ttTMERTN LOAD ADDR OF ROUTINE 

* DOS TIME. ON GO ACTIVATE THIS ROUTINE 
* 

A PRNT ESU *61A PRINT A CHARACTER ON PRINTER 

* THIS IS CHANGED BY CALLING BUFFERED PRINTER OVERLAY TO POINT 

* AT BUFFERED 10 ROUTINE 
* 

A KEYIN EQU *61C POLL KEYBOARD FOR INPUT CHARACTER 

* THIS IS CHANGED BY CALLING BUFFERED KEYBOARD OVERLAY TO POINT 

* AT BUFFERED 10 ROUTINE 



A BASIC EQU 



*61E 



JMP HERE TO RETURN TO BASIC 



***»**»**»»**»**********»***♦*»***»***»**»**»*♦»*»**♦ 

♦ OTHER USEFUL MACROS FOLLOW 

*♦#**#****##*#♦♦*#*♦********♦*#*##***♦#*♦*»**♦***#*** 

ENABLI MACR ENABLE INTERUPTS 

4320 ANDCC #7.11101111 

4330 ENDM 

* 

DISABLE INTERUPTS 



NEGATE D 



DSABLI MACR 


4360 


ORCC #7.01010000 


4370 


ENDM 


* 




NEGD 


MACR 


4400 


COMA 


4410 


COMB 


4420 


ADDD #1 


4430 


ENDM 


* 




LSRD 


MACR 


4460 


LSRA 


4470 


RORB 


4480 


ENDM 


LSLD 


MACR 


4510 


LSLB 


4520 


ROLA 


4530 


ENDM 


* 




CLRD 


MACR 


4560 


CLRA 


4570 


CLRB 


4580 


ENDM 


# 




INCD 


MACR 


4610 


ADDD #1 


4620 


ENDM 



LOGICAL SHIFT RIGHT D 



LOGICAL SHIFT LEFT D 



CLEAR D 



ADD 1 TO D 



**♦*»*******»***»******»»**»**»#*♦**»**♦*»»*»»*»**»*»**»***»#***»» 

♦ SYSTEM RAM - DOS 
*»»***»*#»**»#»**»»**»******»***»****»**»**#*»♦*»*»»**»**»*»**»*** 

* ADDITIONAL WS USING EXTENDED ADDRESSING 

ORG *15E 
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04690 


005 ISA 


0600 


04700 


00519 




04710 


005 20 A 


0600 


04720 


00521 




04730 


00522 




04740 


00523 




04750 


00524 




04760 


00525 




04770 


00526 




04780 


00527 




04790 


00528 




04800 


00529 




04810 


00530 




04820 


00531 




04830 


00532 




04840 


00533 




04850 


00534 




04860 


00535 




04870 


00536 




04880 


00537A 


0620 


04890 


00538A 


0622 


04900 


00539A 


0623 


04910 


00540A 


0625 


04920 


00541A 


0627 


04930 


005 42 A 


0629 


04940 


005 43 A 


062B 


04950 


00544A 


062D 


04960 


00545A 


062F 


04970 


00546A 


0631 


04980 


00547A 


0633 


04990 


00548A 


0635 


05000 


00549A 


0666 


05010 


00550A 


0697 


05020 


00551 A 


06 C8 


05030 


00552 




05040 


00553A 


07C8 


05050 


00554A 


080D 


05060 


00555A 


0852 


05070 


00556A 


0897 


05080 


00557 




05090 


00558A 


08DC 


05100 


00559A 


08DE 


05110 


00560 




05120 


00561A 


08DF 


05130 


00562 




05140 


00563 




05150 


00564 




05160 


00565 




05170 


00566A 


0989 


00010 


00567 




00020 


00568 




00030 


00569 




00040 


00570 




00050 


00571 




00060 


00572 




00070 


00573 




00080 


00574 




00090 


00575 





0020 



0002 
0001 
0002 
0002 
0002 
0002 
0002 
0002 
0002 
0002 
0002 
0031 
0031 
0031 
0100 
0045 
0045 
0045 
0045 
0045 
07 C8 
0002 
0001 

0001 



ORG $600 

* AREA WHERE USER ACCESSABLE VECTORS & VARIABLES STORED 
VECTOR RMB 2*16 2 BYTES PER VECTOR 

* OPEN OPEN A DISK FILE 

* CLOSE CLOSE A DISK FILE 

* READ READ FROM A DISK FILE 

* WRITE WRITE TO A DISK FILE 

* RELSE RELEASE I/O BUFFER (ALLOW USE FOR ANOTHER FILE) 

* DO LOAD & EXECUTE A SYSTEM OVERLAY 

* GO LOAD ON TOP OF CURRENT OVERLAY & JUMP TO SYSTEM OVERLAY 
» LOAD LOAD SYSTEM OVERLAY 

* DOUSR LOAD & EXECUTE USER OVERLAY 

* GOUSR LOAD ON TOP OF CURRENT OVERLAY & JUMP TO USER OVERLAY 

* LODUSR LOAD USER OVERLAY 

* ERROR DISPLAY ERROR NUMBER IN "A" 
TURN ON/OFF TIME INTERVAL ROUTINE 
PRINT A CHARACTER ON PRINTER 
INPUT NEXT KEYSTROKE FROM KEYBOARD 
RETURN TO BASIC CONTROL 



* TIME 

* PRNT 

* KEYIN 

* BASIC 
CLOCK 



RMB 



RETRYS RMB 



RMB 
RMB 



RMB 
RMB 
RMB 
RMB 



A RATE 
A OLYLOC 
A USRBSE RMB 
A HOOK1 RMB 

H00K2 

H00K3 

H00K4 

HOOK5 

RETURN RMB 

DOSDCB RMB 

MSGDCB RMB 

USRDCB RMB 
A SYSBUF 
A FATSZ 
A FAT0 
A FAT1 

FAT2 

FAT3 

FATS 



RMB 
EQU 
RMB 
RMB 
RMB 
RMB 
EQU 



DCBSZ 

DCBSZ 

DCBSZ 

256 

69 

FATSZ 

FATSZ 

FATSZ 

FATSZ 

FAT0 

1 
L 
1 
NOL 



COUNT OF 60THS OF A SECOND 

NUMBER OF I/O RETRYS INITIALLY SET TO 5 

TIME CONSTANT THAT CONTROLS PRINTER TRANSMISSION SPEED 

ADDRESS WHERE CURRENT OVERLAY WAS LOADED 

BASE OF USER'S ROOT + 1. POINTS TO ENTRY ZERO OF OVERLAY'S RBA' 

JUST BEFORE CHECKING FOR AUTO EXECUTE 

JUST BEFORE BRANCHING TO USER PROGRAM 



CONTAINS TWO RTS CODES - ALL HOOKS RETURN THRU HERE 

DCB USED TO READ SYSTEM OVERLAYS 

DCB USED TO READ "MAPS" AND MESSAGES 

DCB USED TO READ USER'S PROGRAM & OVERLAYS 

BUFFER FOR SYSTEM USE(DIRECTORY + FAT READS & WRITES) 

FILE ALLOCATION TABLE (FAT) SIZE 

SAVE AREA FOR DRIVE FAT TABLE 

SAME FOR DRIVE 1 



ADDR OF HIGHEST USEABLE MEMORY 

MAX NBR OF DRIVES TO SEARCH ON GLOBAL OPEN 



END OF EXTENDED WS 



MAXMEM RMB 
DRIVES RMB 

OPT 
ENDWSE RMB 

OPT 
**»***♦*************#********#*#****************#**********#****#*#**»«*# 

* D S STARTS HERE 

##*####*######***■*#**##***##**####*#***¥■***#***#*#**********************# 

ORG ORGIN SEE 1ST MODULE FOR VALUE ASSIGNED 
OPT L 

TTL DOS - I/O ROUTINES 
OPT NOL 
*#**#**#***************##**##**#*****###**♦*♦#**************»#*#*#*#****#* 

* OPEN DISK FILE 
* 

* GIVEN: 

* A=DESIRED FILE STATUS 

* U->DCB 



PASE 011 10 



.SA!0 



DOS - I/O ROUTINES 



00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
00410 
00420 
00430 
00440 
00450 
00460 
00470 
00480 
00490 
00500 
00510 
00520 
00530 
00540 
00550 
00560 
00570 
00580 
00590 
00600 
00610 
00620 
00630 
00640 
00650 
00660 
00670 



00576 

00577 

00578 

00579 

00580 

00581 

00582 

00583 

00584 

00585 

00586 

00587 

00588 

00589 

00590 

00591 

00592 

00593 

00594 

00599 

00596 

00597 

00598 

00599 

00600 

00601 

00602 

00603 

00604A 

00605 A 

00606A 

00607A 

00608A 

00609A 

006 10A 

0061 1A 

006 12A 

006 13A 

006 14A 

0061 5 A 

006 16A 

006 17A 

006 ISA 

00619 

00620A 

00621 A 

00622A 

00623A 

00624A 

00625A 

00626A 

00627A 

00628A 

00629A 

00630 

00631 A 

00632A 

00633A 



0989 E6 
098C 34 
098E CI 

0990 27 
0992 CI 
0994 25 
0996 86 
0998 A7 
099A 35 
099C 5F 
099D E7 
09A0 4F 
09A1 17 
09A4 27 
09A6 2B 

09 A8 81 
09AA 26 
09AC 6D 
09AE 2A 
09B0 6D 
09B2 2A 
09B4 E6 
09B7 5C 
09B8 Fl 
09BB 25 

09BD A6 
09BF 85 
09C1 26 



C8 
16 
FF 
0A 
04 
07 
09 
E4 
96 

C8 



* DCBDRV.U = DRIVE TO BE CHECKED <*FF=CHECK ALL DRIVES) 
* 

* BEFORE CALLING "OPEN". DCB SHOULD CONTAIN: FILENAME. EXTENSION, 

* I/O BUFFER ADDRESS. NAME AND EXTENSION ONLY ARE COMPARED 

* TO DIRECTORY ENTRIES TO FIND MATCH. TYPE AND ASCII FLAG ARE USED ONLY 

* WHEN CREATING FILE (OTHERWISE THEY ARE OVERLAYED BY EXISTING VALUES). 
« ALL I/O NEEDED TO OPEN FILE USES THE 256 BYTE AREA POINTED TO BY 

* LAST I/O ADDRESS AS A BUFFER. 
# 

» OPEN WORKS EXACTLY THE SAME FOR INPUT OR OUTPUT! ACTION IS CONTROLLED 

» BY FILE STATUS SUPPLIED IN "A" (SEE DCBCFS IN DCB DESCRIPTION). 

* 

* OPENING A NON-EXISTANT FILE - IF CREATION IS ALLOWED, FIRST 32 BYTES OF 

* DCB ARE PLACED IN DIRECTORY EXCEPT THAT DCBFCL IS SET TO *FF, DCBNLS 

* IS SET TO ZERO AND DCBCFS IS SET TO PROVIDED STATUS. 
* 

* OPENING AN EXISTING FILE - THE 32 BYTE DIRECTORY ENTRY OVERLAYS THE 

* FIRST 32 BYTES OF THE DCB EXCEPT FOR DCBCFS WHICH IS SET TO THE PROVIDED 

* VALUE. 
* 

* WHEN FILE IS OPENED, DCBPRN IS SET TO *FFFF (AN INVALID VALUE), DCBRBA 

* IS SET TO ZERO, AND DCBLRN IS SET TO ZERO. AT ANYTIME BEFORE OR AFTER 

* CALLING OPEN, DCBLRB CAN BE SET OR CHANGED. 
* 

* FILE TYPE AND ASCII FLAG CAN BE CHANGED AFTER OPEN TO CAUSE THEM TO BE 

* CHANGED WHEN FILE IS CLOSED. 
* 
************************************************************************** 



1 A 
A 
A 

099 C 
A 

099D 
A 
A 
A 



01 
EC 
61 
E8 
61 
09 
C8 



DOPEN 



DOERR 



DO0 
D01 



02D2 0C76 
50 09F6 
08 09B0 



LDB 

PSHS 

CMPB 

BEQ 

CMPB 

BCS 

LDA 

STA 

PULS 

CLRB 

STB 

CLRA 

LBSR 

BEfi 

BMI 



DCBDRV,U 

D,X 

#*FF 

DO0 

#4 

D01 

#ERR9 

,S 

D,X,PC 

DCBDRV,U 

CHKDIR 

DOS 

D03 



REQUEST FOR SCAN OF ALL DRIVES 

IF YES 

VALID DRIVE REQUESTED? 

IF YES 

PARAMETER ERROR 

RETURN WITH ERROR CONDITION 
START WITH DRIVE ZERO 

SAY LOOK FOR MATCH 

CHECK DIRECTORY ON THIS DRIVE FOR MATCH 

IF MATCH FOUND 

IF NO I/O ERRORS - JUST DIDNT FIND IT 



♦ IT WAS SOME KIND OF I/O ERROR 



A 
0998 

A 
0998 

A 

09BD 

1 A 



D03 



08DE A 
E0 099D 



CM PA 

BNE 

TST 

BPL 

TST 

BPL 

LDB 

INCB 

CMPB 

BCS 



#1 DRIVE NOT READY? 

DOERR IF NO 

1,S REQUEST FOR SPECIFIC DRIVE? 

DOERR IF YES, THEN THIS IS AN ERROR 

1,S REQUEST FOR SPECIFIC DRIVE? 

D04 IF YES, I DIDNT FIND HIS FILE 

DCBDRV.U LAST DRIVE CHECKED 



DRIVES 
D01 



ANOTHER VALID DRIVE TO CHECK? 
IF YES 



* MATCH NOT FOUND - IS IT OK TO CREATE? 



E4 
04 
04 



A 

A 

09 C7 



D04 



LDA 

BITA 

BNE 



<S 

#CREATE 

D04A 



(DESIRED STATUS) 
CREATE BIT ON? 
IF YES 
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. SAsB 



DOS - I/O ROUTINES 



00680 
00690 
00700 
00710 
00720 
00730 
00740 
00750 
00760 
00770 
007S0 
00790 
00800 
00810 
00820 
00830 
00840 
00850 
00860 
00870 
00880 
00890 
00900 
00910 
00920 
00930 
00940 
00950 
00960 
00970 
00980 
00990 
01000 
01010 
01020 
01030 
01040 
01050 
01060 
01070 
01080 
01090 
01100 
01110 
01120 
01130 
01140 
01150 
01160 
01170 
01180 
01190 
01200 
01210 
01220 
01230 
01240 
01250 



00634A 

00635A 

00636A 

00637A 

00638A 

00639A 

00640A 

00641 A 

00642A 

00643A 

00644A 

00645A 

00646A 

00647A 

00648A 

00649A 

00650A 

00651 A 

0065 2 A 

00653A 

00654A 

0065 5 A 

0065 6A 

00657 

0065 8 A 

00659A 

00660A 

00661 A 

00662A 

00663A 

00664A 

00665A 

00666A 

00667A 

00668A 

00669 

00670A 

00671 A 

00672A 

00673A 

00674A 

00675A 

00676A 

00677A 

00678A 

00679A 

00680A 

00681 A 

00682A 

00683A 

00684A 

00685A 

00686A 

00687A 

00688 

00689A 

00690A 

00691 A 



09 C3 86 
09 C5 20 
09C7 6D 
09 C9 2 A 
09 CB 6F 
09CE 86 
09D0 17 
09D3 27 
09D5 2A 
09D7 86 
09D9 20 
09DB A6 
09DD A7 
09DF 86 
09E1 A7 
09E3 86 
09E5 A7 
09E7 
09E9 ED 
09EB ED 
09EE A7 
09F1 17 
09F4 20 

09F6 A6 
09F8 A7 
09FA 6F 
09FC A6 
09FF 27 
0A01 84 
0A03 27 
0A05 6D 
0A08 27 
0A0A 86 
0A0C A7 

0A0E A6 
0A10 A7 
0A13 17 
0A16 A6 
0A19 B4 
0A1B 27 
0A1D 17 
0A20 
0A22 
0A24 
0A27 
0A2A 
0A2C 
0A2F 34 
0A31 CE 
0A34 C6 
0A36 17 
0A39 35 

0A3B CC 
0A3E ED 
0A41 



26 
86 
A7 
17 
26 
17 



0A 

Dl 
61 
03 
C8 21 

FF 



A 
0998 

A 
09CE 

A 

A 
02A3 0C76 



06 
CI 
08 
BD 
E4 
61 
0C 
E4 
FF 
4D 



09DB 
0998 
A 
0998 
A 
A 
A 
A 
A 
A 



4E A 
C8 14 A 
C8 16 A 
0263 0C57 
18 0A0E 



E4 
61 
E4 
88 10 



AD 



40 

06 C8 
45 

022E 
40 

FFFF 
C8 29 



LDA 
BRA 

D04A TST 
BPL 
CLR 

D04B LDA 
LBSR 
BEG! 
BPL 
LDA 

DOERRL BRA 

D04C LDA 
STA 
LDA 
STA 
LDA 
STA 
CLRD 
STD 
STD 
STA 
LBSR 
BRA 



#ERR10 
DOERR 
l.S 
D04B 



FILE DIRECTORY ENTRY NOT FOUND 



ANY DRIVE SPECIFIED? 
IF SPECIFIC 



DCBDRV.U CREATE ON DRIVE ZERO 



SAY LOOK FOR OPEN SLOT 

SCAN THE DIRECTORY 

IF SLOT FOUND 

IF SOME KIND OF I/O ERROR 

DIRECTORY IS FULL 

DESIRED STATUS 

SAVE IT 

SAY DIRECTORY WAS CREATED 



#*FF 

CHKDIR 

D04C 

DOERR 

#ERRU 

DOERR 

■ S 

l.S 

#ERR12 

>S 

#*FF 

DCBFCL.U SET NUMBER OF 1ST CLUSTER 

DCBNLS.U CLEAR BYTES IN LAST SECTOR 

DCBMRB.U CLEAR MAX RBA 

DCBMRB+2.U 

DCBDIR XFER DATA TO DIRECTORY 

D06 GO CONTINUE PROCESSING 



* DIRECTORY ENTRY FOUND 



D05 



0D 0A0E 

0E A 

09 0A0E 

88 10 A 

04 0A0E 
0D A 
E4 A 

61 A 
88 10 A 
0249 0C5F 
CB 10 A 
0E A 

05 0A22 
03 IF 0D3F 
B7 09D9 
02 A 
CB 23 A 
02FD 0D27 



LDA 

STA 

CLR 

LDA 

BES 

ANDA 

BEQ 

TST 

BEQ 

LDA 

STA 



DESIRED STATUS 
SAVE IT 



<S 

l.S 

<S 

DCBCFS.X CHK PREVIOUS FILE STATUS 

D06 IF IT WAS CLOSED 

#CREATE+EXTEND+OUT IF LAST OPENED TO MODIFICATION? 

D06 IF NO 

DCBCFS.X CHK PREVIOUS FILE STATUS 

D06 IF IT WAS CLOSED 

#ERR13 SAY IT WASNT PREVIOUSLY CLOSED 

>S 



* XFER DIRECTORY ENTRY TO DCB 



09D9 



02 1C 0C4B 



A 
A 
A 
0C67 
A 

A 
A 



D06 LDA 
STA 
LBSR 
LDA 
ANDA 

BEQ D06A 

LBSR SYSWRT 

BNE DOERRL 

D06A LDA #2 

STA DCBSECiU 

LBSR SYSRED 

BNE DOERRL 

LBSR ADRFAT 

PSHS U 

LDU #SYSBUF 

LDB #69 

LBSR XFRUX 

PULS U 

* DO OPEN RESETTING 

LDD #*FFFF 

STD DCBPRN.U 
CLRD 



l.S DESIRED STATUS 

DCBCFS.X PUT IN DIRECTORY ENTRY 

DIRDCB XFER DIRECTORY ENTRY TO DCB 

DCBCFS.U 

#CREATE+EXTEND+OUT WRITES ALLOWED? 



IF NO 

REWRITE DIRECTORY RECORD 

IF I/O ERROR 



READ FAT RECORD 



POINT 



AT FAT TABLE IN MEMORY 



POINT TO BUFFER 
BYTES TO MOVE 
MOVE THEM 
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.SA:0 



DOS 



I/O ROUTINES 



01260 
01270 
012S0 
01290 
01300 
01310 
01320 
01330 
01340 
01350 
01360 
01370 
01380 
01390 
01400 
01410 
01420 
01430 
01440 
01450 
01460 
01470 
01480 
01490 
01500 
01510 
01520 
01530 
01540 
01550 
01560 
01570 
01580 
01590 
01600 
01610 
01620 
01630 
01640 
01650 
01660 
01670 
01680 
01690 
01700 
01710 
01720 
01730 
01740 
01750 
01760 
01770 
01780 
01790 
01800 
01810 
01820 
01830 



00692A 

00693A 

00694A 

00695A 

00696A 

00697 

00698 

00699 

00700 

00701 

00702 

00703 

00704 

00705 

00706 

00707 

00708 

00709A 

007 10A 

00711 A 

007 12A 

007 13A 

007 14A 

00715A 

007 16A 

007 17A 

007 ISA 

007 19A 

00720A 

00721 A 

00722A 

00723A 

00724A 

00725A 

00726A 

00727A 

00728A 

00729A 

00730A 

00731 A 

00732A 

00733A 

00734 

00735A 

00736A 

00737A 

00738A 

00739A 

00740A 

00741 A 

00742A 

00743A 

00744A 

00745A 

00746A 

00747A 

00748A 

00749 



0A43 ED 
0A46 A7 
0A49 ED 
0A4C 6F 
0A4F 16 



0A52 4F 
0A53 34 
0A55 4F 
0A56 17 
0A59 27 
0A5B 2A 
0A5D 86 
0A5F 16 
0A62 A6 
0A65 26 
0A67 86 
0A69 20 
0A6B EC 
0A6E 34 
0A70 17 
0A73 35 
0A75 26 
0A77 ED 
0A7A A6 
0A7D 34 
0A7F 6F 
0A82 84 
0A84 27 
0A86 6F 
0A88 34 

0A8A 17 
0A8D A6 
0A8F 2B 
0A91 E6 
0A93 6F 
0A95 6A 
0A97 IF 
0A99 4D 
0A9A 2A 
0A9C 35 
0A9E 17 
0AA1 35 
0AA3 84 
0AA5 27 



C8 2B A 
C8 2D A 
CB 2E A 
C8 30 A 
008C 0ADE 



16 



07 
02 
0A 



FF36 0998 
C8 10 A 
0A6B 
A 
0A5F 
22 A 
A 



04 
13 
F4 
C8 
06 



06 

E8 

C8 22 

C8 10 

02 

C8 10 

10 

18 

C4 

10 



4D 
0B 
86 
86 
86 
98 



A 
0A9C 
A 
A 
A 
A 



F5 0A91 
10 A 
01B6 0C57 
02 A 
0E A 
15 0ABC 



STD 


DCBRBA, U 




STA 


DCBRBA+2. 


U 


STD 


DCBLRN.U 




CLR 


DCBMDT.U 




LBRA 


DCS 





♦ CLOSE DISK FILE 



* GIVEN: U 



DCB (CONTAINING FILE STATUS) 



* FUNCTION: 

* FIND DIRECTORY ENTRY AND VERIFY THAT FILE IS OPEN. THEN. IF FILE IS 

* TO BE KEPT, UPDATE AND RE-WRITE DIRECTORY ENTRY AND REWRITE FAT TABLE. 

* IF FILE IS TO BE PURGED. MARK DIRECTORY ENTRY AS RE-USEABLE AND RE-WRITE 

* THEN MARK CLUSTERS AVAILABLE IN FAT TABLE AND REWRITE. 
*»*****»»*****♦»******«****»******»**»*****»»♦»**»«****»***»**»***»*»»**♦# 



DCLOSE 



02 ID 0C76 



0A62 

0A5F 

A 



DCERR 
DC1 



DC2 



02D0 0D43 



A 
0A5F 
A 
A 
A 
A 
A 
0A9E 
A 
A 



CLR A 

PSHS 

CLRA 

LBSR 

BEQ 

BPL 

LDA 

LBRA 

LDA 

BNE 

LDA 

BRA 

LDD 

PSHS 

LBSR 

PULS 

BNE 

STD 

LDA 

PSHS 

CLR 

ANDA 

BEG! 

CLR 

PSHS 



D.X 

CHKDIR 

DC1 

DCERR 

#ERR10 

DOERR 

DCBCFS 

DC2 

#ERR19 

DCERR 

DCBTRK.U 

D 

REWRTE 

D 

DCERR 

DCBTRK.U 

DCBCFS. U 

A 

DCBCFS. U 

#WORK 

DC4 

,U 

X 



(RESULT CODE) 



SAY LOOK FOR A MATCH 



CHECK DIRECTORY 
IF MATCH FOUND 
IF I/O ERR 
DIRECTORY ENTRY 

U IS FILE OPEN? 



FOR A MATCH 



NOT FOUND 



CLOSING UNOPENED FILE 



SAVE LOC OF DIR ENT 

REWRITE BUFFER IF IT HAD BEEN MODIFIED 

IF I/O ERROR OCCURRED IN THE PROCESS 
RESTORE LOC OF DIR ENT 

SAVE FOR DIRECTORY RE-WRITE DECISION 

CLEAR CUR FILE STATUS IN DCB 

WORK FILE TO BE DELETED? 

IF NO GO REWRITE DIRECTORY & FAT TABLE 

MARK DIRECTORY ENTRY AS RE-USEABLE 

SAVE ADDR OF DIRECTORY ENTRY 



* MARK FAT TABLE ENTRIES AS AVAILABLE 



01BE 0C4B 



DC3 



DC3A 
DC4 



LBSR 

LDA 

BMI 

LDB 

CLR 

DEC 

TFR 

TSTA 

BPL 

PULS 

LBSR 

PULS 

ANDA 

BEQ 



ADRFAT 

DCBFCL. 

DC3A 

A.X 

A.X 

A.X 

B.A 



POINT "X" AT FAT TABLE IN MEM 

GET FIRST CLUSTER NUMBER 

IF NO CLUSTERS IN USE 

GET NUMBER OF NEXT CLUSTER 

CLEAR CLUSTER ENTRY 

SET TO *FF 



DC3 IF MORE TO GO 

X ADDR OF DIR ENTRY 

DCBDIR XFER TO DIRECTORY 

A PRE-CLOSE CFS 

#CREATE+EXTEND+OUT WRITES ALLOWED? 

DC4B 



* SET DCBNLS TO REFLECT DCBMRB (MAX RBA) 
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DOS 



I/O ROUTINES 



01840 
01850 
01860 
01870 
01880 
01B90 
01900 
01910 
01920 
01930 
01940 
01950 
01960 
01970 
01980 
01990 
02000 
02010 
02020 
02030 
02040 
02050 
02060 
02070 
02080 
02090 
02100 
02110 
02120 
02130 
02140 
02150 
02160 
02170 
02180 
02190 
02200 
02210 
02220 
02230 
02240 
02250 
02260 
02270 
02280 
02290 
02300 
02310 
02320 
02330 
02340 
02350 
02360 
02370 
02380 
02390 
02400 
02410 



00750A 

00751 A 

0075 2A 

0075 3 A 

00754A 

0075 5 A 

00756A 

00757A 

0075 8A 

0075 9 A 

00760A 

00761 A 

00762A 

00763A 

00764A 

00765A 

00766A 

00767A 

00768A 

00769A 

00770A 

00771 A 

00772A 

00773A 

00774A 

00775 

00776 

00777 

00778 

00779 

00780 

00781 

00782 

00783 

00784 

00785 

00786 

00787 

00788 

00789 

00790 

00791 

00792 

00793 

00794 

00795 

00796 

00797 

00798 

00799A 

00800A 

00801 A 

00802 

00803 

00804 

00805A 

00806A 

00807A 



BAA7 4F 
0AA8 E6 
0AAB 26 
0AAD EC 
0AB0 27 
0AB2 CC 
0AB5 ED 
0AB7 17 
0ABA 26 
0ABC 17 
0ABF 34 
0AC1 CE 
0AC4 C6 
0AC6 17 
0AC9 30 
0ACB C6 
0ACD 17 
0AD0 35 
0AD2 86 
0AD4 A7 
0AD7 17 
0ADA 27 
0ADC A7 
0ADE 6D 
0AE0 35 



88 16 A 
08 0AB5 
88 14 A 



0AE2 34 
0AE4 CC 
0AE7 17 



0AEA E6 
0AED 4F 
0AEE A6 



03 

0100 

0E 



0AB5 
A 
A 



0285 0D3F 



A3 



0A5F 



018C 0C4B 



40 

06C8 

45 



01A6 0C6F 



41 
BA 



0197 0C67 
40 A 
02 A 
C8 23 A 
0265 0D3F 
02 0ADE 
E4 A 
E4 A 
96 A 



CLRA 

LDB 

BNE 

LDD 

BEG 

LDD 

DC4A STD 
LBSR 
BNE 

DC4B LBSR 
PSHS 
LDU 
LDB 
LBSR 
LEAX 
LDB 
LBSR 
PULS 
LDA 
STA 
LBSR 
BEQ 
STA 

DC5 TST 
PULS 



DCBMRB+2. 

DC4A 

DCBMRB.X 

DC4A 

#*100 

DCBNLS. X 

SYSWRT 

DCERR 

ADRFAT 

U 

#SYSBUF 

#69 

XFRXU 

l.U 

#256-69-1 

XFRUX 

U 

#2 

DCBSEC.U 

SYSWRT 

DC5 

>S 

.S 

D.X.PC 



IS IT A NULL FILE 
IF YES 



RE-WRITE DIRECTORY RECORD 
IF I/O ERROR 



SAVE DCB ADDR 

POINT TO SYSTEM'S BUFFER 



XFER INTO BUFFER 



CLEAR REST OF BUFFER TO *FF 
RESTORE DCB ADDR 



WRITE IT 



IF I/O ERROR 
SET COND CODES 



32 A 
010F A 
0091 0B7B 



C8 2D A 
SB A 



*READ A LOGICAL DISK RECORD 
* 

* GIVEN: U -> DCB <THAT HAS ALREADY BEEN OPENED!) 

* A = FUNCTION DESIRED CODED AS FOLLOWS: 

* BIT ON TO READ VIA RBA 

* OFF TO READ VIA LRN 

* BIT 1 ON TO READ WITHOUT CHANGING POINTER 

* OFF TO EXIT AFTER POINTING AT NEXT (PREVIOUS) RECORD 

* BIT 2 ON TO READ BACKWARDS 

* OFF TO READ FORWARD 

* EXAMPLES A=2ER0 TO READ THE CURRENT LOGICAL RECORD AND THEN ADVANCE 

* THE LOGICAL RECORD NUMBER BY 1. A = 2 TO "READ FOR UPDATE" A LOGICAL 

* RECORD. A = 1+4 (5) TO READ STARTING WITH THE RBA'TH BYTE OF DATA 

* IN THE FILE. FOR DCBRSZ BYTES. THEN SET RBA TO POINT DCBRSZ BYTES 

* AHEAD OF THE FIRST BYTE READ. 
* 

* NOTE: LOGICAL RECORD SIZE. RECORD STORAGE ADDRESS AND I/O BUFFER 

* ADDRESS ARE USED. IF LOGICAL RECORD SIZE IS 256. RECORD STORAGE 

* AND I/O BUFFER MAY BE THE SAME ADDRESS. IF DCBRSZ IS ZERO. READS WILL 

* TRANSFER BYTES FROM THE FILE TO CDCBREC] UNTIL A CHARACTER MATCHING 

* DCBTRM IS TRANSFERRED. 

***»**»**»♦*»♦**♦***♦**♦*******#***#******#♦*»**#»**♦***»***»*******#»»*** 
DREAD PSHS A.X.Y 

LDD #*0100+ERR15 

LBSR RDWR DO SETUP COMMON TO READ AND WRITE 
* 

* LOOP TO XFER BYTES TO RECORD AREA 

* (X->BUFFER. Y->RECORD AREA) 

DR5 LDB DCBRBA+2.U DISPLACEMENT IN CURRENT SECTOR 
CLRA 
LDA D.X GET A BYTE 
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.SA:0 



DOS 



I/O ROUTINES 



02420 00808A 0AF0 A7 


A0 


A 




STA 


iY+ 


STORE IN RECORD AREA 


02430 00B09A 0AF2 6C 


C8 


2D A 




INC 


DCBRBA+2. 


U ADVANCE POINTER IN BUFFER 


02440 008 10A 0AF5 26 


IE 


0B15 




BNE 


DR5B 


IF IN SAME SECTOR 


02450 0081 1A 0AF7 17 


0249 0D43 




LBSR 


REWRTE 


ENSURE PREVIOUSLY MODIFIED DATA GETS WRITTEN 


02460 008 12A 0AFA 26 


0E 


0B0A 




BNE 


DR5AA 


IF WRITE ERR 


02470 00813A 0AFC EC 


CB 


2B A 




LDD 


DCBRBA.U 




02480 00814A 0AFF C3 


0001 A 




ADDD 


#1 


POINT TO NEXT SECTOR 


02490 0081 5 A 0B02 ED 


C8 


2B A 




STD 


DCBRBA.U 




02500 008 16A 0B05 17 


0291 0D99 




LBSR 


CALSEC 


RECALCULATE TRACK & SECTOR 


02510 0081 7 A 0B08 27 


06 


0B10 




BEQ 


DR5A 


IF OK 


02520 008 18A 0B0A 32 


67 


A 


DR5AA 


LEAS 


7.S 


SCRAP STUFF IN STACK 


02530 008 19A 0B0C A7 


E4 


A 




STA 


>S 




02540 00820A 0B0E 35 


B2 


A 




PULS 


A.X.Y.PC 




02550 00821A 0B10 17 


01D4 0CE7 


DR5A 


LBSR 


DSKRED 




02560 00822A 0B13 26 


F5 


0B0A 




BNE 


DR5AA 


IF I/O ERROR 


02570 00823A 0B15 EC 


E4 


A 


DR5B 


LDD 


.S 


GET COUNT DOWN VALUE 


02580 00824A 0B17 27 


09 


0B22 




BEQ 


DR5C 


IF VARIABLE LENGTH STRING 


02590 00825A 0B19 83 


0001 A 




SUBD 


#1 




02600 00826A 0B1C ED 


E4 


A 




STD 


.S 




02610 00827A 0B1E 26 


CA 


0AEA 




BNE 


DR5 


GO GET ANOTHER CHR 


02620 00828A 0B20 20 


07 


0B29 




BRA 


RDWRX 


GO DO CLEAN-UP COMMON TO READ AND WRITE 


02630 00829A 0B22 A6 


C8 


13 A 


DR5C 


LDA 


DCBTRM.U 


STRING DELIMITER 


02640 00830A 0B25 Al 


3F 


A 




CM PA 


-l.Y 


WAS LAST CHR STORED A DELIMITER? 


02650 00831 A 0B27 26 


CI 


0AEA 




BNE 


DR5 


IF NO. KEEP GOING 


02660 00832 






# 








02670 00833 






*»****»*»♦********♦***»**»****»**** 


02680 00834 






* CLEAN UP COMMON TO READ AND WRITE 


02690 00835 






it********************************** 


02700 00836 






»' RECORD HAS 


BEEN READ 


- CLEAN UP 


02710 00837 A 0B29 35 


06 


A 


RDWRX 


PULS 


D 




02720 00838A 0B2B A6 


CB 


10 A 




LDA 


DCBCFS.U 


FILE STATUS 


02730 00B39A 0B2E 85 


40 


A 




BITA 


#SHARE 


OPTION SET? 


02740 00840A 0B30 27 


08 


0B3A 




BEQ 


DR6A 


IF NO 


02750 00841 A 0B32 17 


020E 0D43 


DR6AA 


LBSR 


REWRTE 


FREE UP BUFFER 


02760 00842A 0B35 CC 


FFFF A 




LDD 


#*FFFF 


MARK INVALID SECTOR IN BUFFER 


02770 00843A 0B38 20 


09 


0B43 




BRA 


DR6B 




02780 00844A 0B3A A6 


65 


A 


DR6A 


LDA 


5.S 


R/W OPTION 


02790 00845A 0B3C 85 


08 


A 




BITA 


KNOW 


REWRITE NOW? 


02800 00846A 0B3E 26 


F2 


0B32 




BNE 


DR6AA 


IF YES 


02810 00847A 0B40 EC 


C8 


2B A 




LDD 


DCBRBA.U 


LAST SECTOR ACCESSED 


02820 00848A 0B43 ED 


C8 


29 A 


DR6B 


STD 


DCBPRN.U 


MARK WHICH SECTOR IS NOW IN BUFFER 


02B30 00849 






* CHECK FOR 


NEW DCBMRB 




02840 00850A 0B46 EC 


C8 


2B A 




LDD 


DCBRBA.U 




02850 00851 A 0B49 10A3 


! CB 


14 A 




CMPD 


DCBMRB. U 




02860 00852A 0B4D 25 


16 


0B65 




BCS 


DR6D 


IF IN A LOWER SECTOR 


02B70 00853A 0B4F 26 


08 


0B59 




BNE 


DR6C 


IF A HIGHER SECTOR 


02880 0085 4 A 0B51 A6 


CB 


2D A 




LDA 


DCBRBA+2 


>U 


02890 00855A 0B54 Al 


CB 


16 A 




CM PA 


DCBMRB+2 


.U 


02900 00856A 0B57 25 


0C 


0B65 




BCS 


DR6D 


IF A LOWER BYTE 


02910 00857A 0B59 EC 


C8 


2B A 


DR6C 


LDD 


DCBRBA.U 




02920 00858A 0B5C ED 


CB 


14 A 




STD 


DCBMRB. U 




02930 00859A 0B5F A6 


C8 


2D A 




LDA 


DCBRBA+2 


,U 


02940 00860A 0B62 A7 


C8 


16 A 




STA 


DCBMRB+2 


,U 


02950 00861A 0B65 A6 


65 


A 


DR6D 


LDA 


5.S 


READ/WRITE OPTION 


02960 00862A 0B67 84 


02 


A 




ANDA 


•UPDATE 


SHOULD RBA & LRN BE RESET TO STARTING VALUE? 


02970 00863A 0B69 35 


32 


A 




PULS 


A.X.Y 




02980 00864A 0B6B 27 


0A 


0B77 




BEQ 


DR6E 


IF NO 


02990 00865 






» RESTORE ORIGINAL POINTERS 



■▼■ 
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.SAs0 



DOS 



I/O ROUTINES 



03000 
03010 
03020 
03030 
03040 
03050 
03060 
03070 
03080 
03090 
03100 
03110 
03120 
03130 
03140 
03150 
03160 
03170 
03180 
03190 
03200 
03210 
03220 
03230 
03240 
03250 
03260 
03270 
03280 
03290 
03300 
03310 
03320 
03330 
03340 
03350 
03360 
03370 
03380 
03390 
03400 
03410 
03420 
03430 
03440 
03450 
03460 
03470 
03480 
03490 
03500 
03510 
03520 
03530 
03540 
03550 
03560 
03570 



00866A 

00867A 

00868A 

00869A 

00870A 

00871 

00872 

00873 

00874 

00875 

00876 

00877A 

00878 

00879A 

00880A 

00881 A 

00882A 

008B3A 

00884A 

00885 

00886A 

00887A 

00888A 

00889A 

00890 

00891 

00892 

00893A 

00894A 

00895A 

00896 

00897A 

00898A 

00899A 

00900A 

00901 A 

00902A 

00903 

00904 

00905 

00906A 

00907A 

00908A 

00909A 

009 10A 

00911 A 

009 12A 

009 13A 

009 14A 

00915A 

009 16A 

009 17A 

00918 

00919 

00920 

00921 A 

00922 

00923A 



0B6D A7 
0B70 AF 
0B73 10AF 
0B77 6F 
0B79 35 



0B7B 34 

0B7D A6 
0B80 26 
0B82 86 
0B84 32 
0BB6 A7 
0B88 35 

0B8A A5 
0B8C 26 
0B8E A6 
0B90 20 



0B92 A6 
0B94 84 
0B96 26 

0B9B EC 
0B9B 26 
0B9D 86 
0B9F 20 
0BA1 17 
0BA4 26 



C8 2D A 

C8 2B A 

C8 2E A 

E4 A 

B2 A 



STA 
STX 
STY 
DR6E CLR 
PULS 



DCBRBA+2iU 

DCBRBA.U 

DCBLRN.U 

.S 

A.X.Y.PC 



06 



a-****************************-****** 

* SETUP FOR READ OR WRITE 

* GIVEN: A=l FOR READ. 2 FOR WRITE 

* B=ERR NBR FOR POSSIBLE USE 
***#****#*♦*#******##**♦#»******■*** 

RDWR PSHS D SAVE IN CASE NEEDED 
» IS FILE OPEN? 



CB 10 A 
08 0BBA 



0E 
64 

E4 
B2 



LDA 
BNE 
LDA 
RDWRER LEAS 
STA 
PULS 



DCBCFS.U 

RDWR1 

#ERR14 

4.S 

>S 

A.X.Y.PC 



IF YES 

IF NOT OPEN 

(DIDN'T NEED IT AND RET ADDR) 



* IS THIS TYPE OF OPERATION ALLOWED (READ OR WRITE)? 



E4 

04 

61 A 

F2 0BB4 



A RDWR1 



0B92 



BITA 
BNE 
LDA 
BRA 



• S 

RDWR2 
l.S 
RDWRER 



(1 FOR READ. 2 FOR WRITE 

IF YES 

(ERROR NUMBER PROVIDED) 



64 
01 
0E 



A 

A 

0BA6 



* CHECK FOR STARTING RBA 

* IS I/O BY RBA OR LOGICAL RECORD? 
RDWR2 LDA 4.S OPTION PROVIDED 

ANDA #RBA 

BNE RDWR4 IF READ VIA RBA. USE RBA'S CURRENT CONTENTS 

* READ BY RECORD NUMBER 



CS 11 A 
04 0BA1 
14 A 
E3 0B84 
01B3 0D57 
DE 0B84 



DCBRSZ.U FIXED OR VARIABLE LENGTH RECORDS? 



IF FIXED LENGTH 
CANT CALCULATE - RSZ 



LDD 

BNE 

LDA 

BRA 
RDWR3 LBSR 

BNE 
* 

OPT L 
* MAKE SURE STARTING RECORD IS IN BUFFER 



RDWR3 

#ERR20 

RDWRER 

CALRBA 

RDWRER 



ZERO 



CALCULATE RECORD'S STARTING RBA 
IF OVERFLOW OCCURRED 



0BA6 EC 
0BA9 10A3 
0BAD 27 
0BAF 17 
0BB2 26 
0BB4 17 
0BB7 26 
0BB9 17 
0BBC 26 
0BBE 20 
0BC0 17 
0BC3 26 



CS 2B A 
CB 29 A 
1 1 0BC0 
0191 0D43 
D0 0B84 
01 E2 0D99 
CB 0B84 
012B 0CE7 
C6 0B84 
05 0BC5 
01DC 0D9F 
BF 0B84 



RDWR4 LDD 
CMPD 
BEQ 
LBSR 
BNE 
LBSR 
BNE 
LBSR 
BNE 
BRA 

RDWR4A LBSR 
BNE 



DCBRBA.U (RELATIVE RECORD NEEDED) 

DCBPRN.U IS NEEDED RECORD IN BUFFER? 

RDWR4A IF YES 

REWRTE REWRITE BUFFER IF IT HAS BEEN MODIFIED 

RDWRER IF I/O ERROR IN THE PROCESS 

CALSEC CALCULATE TRACK & SECTOR 

RDWRER IF TRYING TO GO BEYOND EOF 

DSKRED READ THE SECTOR 

RDWRER IF I/O ERR 

RDWR5 

CSENT CHECK FOR EOF 

RDWRER IF TRYING TO GO PAST EOF 



0BC5 35 
0BC7 AE 



26 
CB 2E 



* CORRECT STARTING SECTOR IS IN BUFFER 

* GET SET TO XFER RECORD 

RDWR5 PULS D.Y (D=l/0, ERR NBR. 
OPT NOL 
LDX DCBLRN.U 



RETURN ADDR) 
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.SA:0 



03580 
03590 
03600 
03610 
03620 
03630 
03640 
03650 
03660 
03670 
03680 
03690 
03700 
03710 
03720 
03730 
03740 
03750 
03760 
03770 
037 B0 
03790 
03800 
03810 
03820 
03830 
03840 
03850 
03860 
03870 
03880 
03890 
03900 
03910 
03920 
03930 
03940 
03950 
03960 
03970 
03980 
03990 
04000 
04010 
04020 
04030 
04040 
04050 
04060 
04070 
04080 
04090 
04100 
04110 
04120 
04130 
04140 
04150 



00924A 

00925A 

00926A 

00927A 

00928A 

00929A 

00930A 

00931 A 

00932A 

00933A 

00934A 

00935A 

00936 

00937 

00938 

00939 

00940 

00941 

00942 

00943 

00944 

00945 

00946 

00947 

00948 

00949 

00950 

00951 

00952A 

0095 3 A 

00954A 

00955 

00956 

00957 

0095 B A 

00959A 

00960A 

00961 A 

00962A 

00963A 

00964A 

00965A 

00966A 

00967A 

00968A 

00969A 

00970A 

00971 A 

00972A 

0097 3 A 

00974A 

00975A 

00976A 

00977A 

00978A 

00979A 

00980A 

00981 A 



0BCA 
0BCC 
0BCE 
0BD1 
0BD4 
0BD7 
0BD9 
0BDC 
0BDE 
0BE0 
0BE3 
0BE7 



34 

30 

AF 

AE 

A6 

34 

EC 

34 

34 

AE 

10AE 

39 



10 
01 

C8 2E 
CB 2B 
C8 2D 
12 

CB 11 
06 
20 

C8 24 
C8 27 



I/O ROUTINES 

PSHS X SAVE IN CASE POINTERS DON'T ADVANCE 

LEAX l.X POINT TO NEXT RECORD 

STX DCBLRN!U 

LDX DCBRBA.U 

LDA DCBRBA+2.U 

PSHS A.X SAVE INCASE POINTERS DON'T ADVANCE 

LDD DCBRSZiU GET RECORD LENGTH 

PSHS D SAVE AS COUNT DOWN VALUE FOR LOOP 

PSHS Y SAVE RET ADDR 

LDX DCBBUF.U ADDR OF BUFFER 

LDY DCBLRB*U ADDR OF LOGICAL RECORD BUFFER 

RTS RETURN TO READ OR WRITE LOOP 



0BEB 34 
0BEA CC 
0BED 8D 



0BEF E6 
0BF2 4F 
0BF3 AE 
0BF6 30 
0BF8 A6 
0BFA A7 
0BFC 6C 
0BFF 26 
0C01 17 
0C04 26 
0C06 EC 
0C09 C3 
0C0C ED 
0C0F 17 
0C12 27 
0C14 32 
0C16 A7 
0C1B 35 
0C1A 17 
0C1D 26 
0C1F 86 
0C21 A7 
0C24 EC 
0C26 27 



*WRITE A LOGICAL DISK RECORD 
* 

* GIVEN: U -> DCB (THAT HAS ALREADY BEEN OPENED!) 
» a = FUNCTION DESIRED CODED AS FOLLOWS: 

* BIT ON TO WRITE VIA RBA 

* OFF TO WRITE VIA LRN 

» BIT 1 ON TO WRITE WITHOUT CHANGING POINTER 

* OFF TO EXIT AFTER POINTING AT NEXT (PREVIOUS) RECORD 

* BIT 2 ON TO WRITE BACKWARDS 

* OFF TO WRITE FORWARD 

* BIT 3 ON TO RELEASE BUFFER AFTER WRITE 

* OFF TO WAIT UNTIL PHYSICAL I/O IS NECESSARY 

* NOTE: FUNCTION IS NEARLY THE SAME AS DREAD - SEE NOTES UNDER DREAD. 
*»**»*«»*♦♦##**»**♦»**»**»»#»*»#»*****»♦»»»*»*»***********»»»»»****»****** 

32 A DWRITE PSHS A,X,Y 

0215 A LDD #*0200+ERR21 

8C 0B7B BSR RDWR DO SETUP COMMON TO READ AND WRITE 



* LOOP TO XFER BYTES FROM RECORD AREA 

* <X->BUFFER) Y->RECORD AREA) 



C8 2D A DW5 



CB 24 
8B 
A0 
84 
CB 2D 



A 
A 
A 
A 
A 

23 0C24 
00E6 0CEA 
0E 0C14 
C8 2B A 
0001 A 
CB 2B A 
0187 0D99 



06 
67 
E4 
B2 



0C1A 
A 
A 
A 



00CA 0CE7 DW5A 

F5 0C14 

01 A 

C8 30 A 

E4 A DW5B 

09 0C31 



LDB 
CLRA 
LDX 
LEAX 
LDA 
STA 
INC 
BNE 
LBSR 
BNE 
LDD 
ADDD 
STD 
LBSR 
BEG! 
DW5AA LEAS 
STA 
PULS 
LBSR 
BNE 
LDA 
STA 
LDD 
BEQ 



DCBRBA+2.U DISPLACEMENT IN CURRENT SECTOR 

DCBBUF,U ADDR OF BUFFER 

D.X DETERMINE ADDR IN BUFFER 

,Y+ GET BYTE FROM RECORD AREA 

.X STORE IN BUFFER 

DCBRBA+2.U ADVANCE POINTER IN BUFFER 

DW5B IF IN SAME SECTOR 

DSKWRT REWRITE SECTOR 

DW5AA IF I/O ERROR 

DCBRBA.U 

#1 

DCBRBA.U 

CALSEC 

DW5A 

7,S 

iS 

A.X.Y.PC 

DSKRED 

DW5AA 

#1 

DCBMDT.U MARK NEW REC AS MODIFIED 

,S GET COUNT DOWN VALUE 

DW5C IF VARIABLE LENGTH STRING 



POINT TO NEXT SECTOR 

RECALCULATE TRACK & SECTOR 

IF OK 

SCRAP STUFF IN STACK 



IF I/O ERROR 



PAGE 018 10 



DOS 



I/O ROUTINES 



04160 
04170 
04180 
04190 
04200 
04210 
04220 
04230 
04240 
04250 
04260 
04270 
04280 
04290 
04300 
04310 
04320 
04330 
04340 
04350 
04360 
04370 
04380 
00010 
00020 
00030 
00040 
00050 
00060 
00070 
00080 
00090 
00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 



00982A 

00983A 

00984A 

00985A 

00986A 

00987A 

00988A 

00989 

00990 

00991 A 

00992A 

00993A 

00994 

00995 

00996 

00997 

00998 

00999 

01000A 

01001A 

01 002 A 

01 003 A 

01004A 

01005 

01006 

01007 

01008 

01009 

01010 

01011 

01012 

01013A 

01014A 

01015A 

01016A 

01017A 

01018A 

01019 

01020 

01021 

01022 

01023 

01 024 A 

01 025 A 

01026A 

01027A 

01028 

01029A 

01030A 

01031A 

01 032 A 

01033 

01034A 

01 035 A 

01 036 A 

01037A 

01038A 

01039 



0C28 83 
0C2B ED 
0C2D 26 
0C2F 20 
0C31 A6 
0C34 Al 
0C36 26 



0C38 86 
0C3A A7 
0C3D 7E 



0C40 17 
0C43 CC 
0C46 ED 
0C49 4F 
0C4A 39 



0C4B 8E 
0C4E A6 
0C51 C6 
0C53 3D 
0C54 30 
0C56 39 



0C57 34 
0C59 C6 
0C5B 8D 
0C5D 35 

0C5F 34 
0C61 C6 
0C63 8D 
0C65 35 

0C67 A6 
0C69 A7 
0C6B 5A 
0C6C 26 
0C6E 39 



0001 A 

E4 A 

C0 0BEF 

07 0C38 

C8 13 A DW5C 

3F A 

B7 0BEF 



SUBD 

STD 

BNE 

BRA 

LDA 

CM PA 

BNE 



GO GET ANOTHER CHR 



ttl 

• S 

DW5 

DW6 

DCBTRM.U STRING DELIMITER 

-1,Y WAS LAST CHR STORED A DELIMITER? 

DW5 IF NO) KEEP GOING 



* RECORD HAS BEEN WRITTEN - CLEAN UP 



01 

C8 30 
0B29 



0100 0D43 
FFFF A 
C8 29 A 



DW6 LDA #1 

STA DCBMDT.U ENSURE THIS SECTOR GETS REWRITTEN (EVETUALLY) 

JMP RDWRX CLEAN UP SAME AS FOR READ 
♦ 
»***#****#***********#*♦************♦******»*#**# 

* RELEASE THE I/O BUFFER 

* (USED WHEN USER WANTS TO CONTROL SHARED BUFFER) 

* GIVEN: U->DCB 

DRELSE LBSR REWRTE REWRITE BUFFER CONTENTS IF NECESSARY 

LDD #*FFFF 

STD DCBPRN.U FORCE READ NEXT TIME 

CLRA 

RTS 

OPT L 

TTL DOS - SUPPORTING SUBROUTINES 

OPT NOL 
*#***»**♦****»********»**********» 

* POINT "X" AT FAT TABLE IN MEMORY 

* GIVEN: U-> DCB CONTAINING DCBDRV 

* RETURNED :X 
**»******♦*******♦*»♦***»***■*♦**** 



07 C8 A 

C8 21 A 

45 A 

BB A 



56 

20 
0A 
D6 

56 
20 
0A 
D6 

C0 
80 

F9 



ADRFAT LDX 
LDA 
LDB 
MUL 
LEAX 
RTS 



#FATS 



FAT TABLE STORE AREA 



DCBDRV. U DRIVE CONTAINING FILE 



#69 



DiX 



NUMBER OF BYTES SAVED 



POINT TO CORRECT AREA 



A 

A 

0C67 

A 

A 

A 

0C6F 

A 

A 
A 



****************»*♦**»***«*»#**»*******»*#**♦»*»#*»****»* 
*XFER BYTES ROUTINES 
*♦*#**#*#*****♦******#*******#*******»************»****** 

* XFER 32 BYTES FROM DCB (AT ,U> TO DIRECTORY (AT .X) 
DCBDIR PSHS D,X,U 

LDB #32 BYTES TO XFER 
BSR XFRUX 
PULS D.X.U.PC 

* XFER 32 BYTES FROM DIRECTORY AT , X TO DCB AT .U 
DIRDCB PSHS D,X>U 

LDB #32 
BSR XFRXU 
PULS D>X,U.PC 

* TRANSFER B BYTES FROM .U TO .X 



XFRUX LDA 

STA 

DECB 
0C67 BNE 

RTS 
» TRANSFER B BYTES FROM .X TO ,U 



, U+ 
iX + 



XFRUX 
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.SA:0 



DOS 



SUPPORTING SUBROUTINES 



00360 
00370 
003S0 
00390 
00400 
00410 
00420 
00430 
00440 
00450 
00460 
00470 
00480 
00490 
00500 
00510 
00520 
00530 
00540 
00550 
00560 
00570 
00580 
00590 
00600 
00610 
00620 
00630 
00640 
00650 
00660 
00670 
00680 
00690 
00700 
00710 
00720 
00730 
00740 
00750 
00760 
00770 
00780 
00790 
00800 
00810 
00820 
00830 
00840 
00850 
00860 
00B70 
00880 
00890 
00900 
00910 
00920 
00930 



01040A 

01041A 

01042A 

01 043 A 

01044 

01045 

01046 

01047 

01048 

01049 

01050 

01051 

01052 

01053 

01054 

01055A 

01056A 

01057A 

01058A 

01059 

01 060 A 

01061A 

01062A 

01 063 A 

01 064 A 

01065A 

01066A 

01067A 

01 068 A 

01 069 A 

01 070 A 
01071A 
01072A 
01073A 
01 074 A 
01075 
01076A 
01077A 
01 078 A 
01079A 
01080A 
01081A 
01082A 
010S3A 
010S4A 
01085A 
01086A 
01087 
01 088 A 
01089A 
01 090 A 
01091A 
01 092 A 
01093A 
01 094 A 
01095A 
01 096 A 
01 097 A 



0C6F IE 
0C71 BD 
0C73 IE 
0C75 39 



13 
F4 
13 



A 

0C67 

A 



EXG 


X,U 


BSR 


XFRUX 


EXG 


X.U 


RTS 





27 
F7 



0C76 34 
0C78 CC 
0C7B A7 
0C7E E7 

0CS1 B6 
0C84 34 
0C86 86 
0C88 B7 
0C8B 17 
0C8E 35 
0C90 
0C92 
0C95 81 
0C97 26 
0C99 A7 
0C9B 35 
0C9D 17 
0CA0 26 
0CA2 20 

0CA4 F7 
0CA7 B6 
0CA9 A7 
0CAB 8E 
0CAE 6D 
0CB0 27 
0CB2 A6 
0CB4 27 
0CB6 2A 
0CBB 6F 
0CBA 35 

0CBC A6 
0CBE 27 
0CC0 2B 
0CC2 5F 
0CC3 A6 
0CC5 Al 
0CC7 26 
0CC9 5C 
0CCA CI 
0CCC 25 



************************************************* 

* CHECK DIRECTORY ON THIS DRIVE 

* GIVEN: A=ZERO IF LOOKING FOR A MATCH 

* A NOT ZERO IF LOOKING FOR AVAILABLE SLOT 

* U -> DCB 

* RETURNED: A=ZERO IF REQUEST SUCCESSFUL 

* A=FF IF NO MATCH FOUND 
» A=l-8 IF I/O ERROR 

« IF SUCCESSFUL. X-> DIRECTORY ENTRY IN BUFFER 

************************************************* 



06 A CHKDIR PSHS 
1103 A LDD 
C8 22 A STA 
C8 23 A STB 

* RETRY ONLY IF DRIVE IS READY! 



D SAVE OPTION 

#$1103 

DCBTRK.U SET TO READ DIRECTORY TRACK 

DCBSECU SET TO READ FIRST DIRECTORY ENTRIES 



0622 

02 

02 

0622 

0099 

04 

12 

0622 

01 

04 

E4 

86 

0087 

F7 

03 

0622 

08 

61 

06 C8 

E4 

0A 

84 

02 

18 

E4 

86 



A 

A 

A 

A 

0D27 

A 

0CA4 

A 

A 

0C9D 

A 

A 

0D27 

0C99 

0CA7 

A 

A 

A 

A 

A 

0CBC 

A 

0CB8 

0CD0 

A 

A 



CD1 



CD1E 



LDA 

PSHS 

LDA 

STA 

LBSR 

PULS 

BEQ 

STB 

CM PA 

BNE 

STA 

PULS 

LBSR 

BNE 

BRA 



5RETRYS 

A 

#2 

>RETRYS 

SYSRED 

B 

CD2 

>RETRYS 

#ERR1 

CD1A 

iS 

D,PC 

SYSRED 

CD1E 

CD2A 



** CHANGED IN VER 6 ** 

DO PHYSICAL READ 

GET ORIG NBR OF RETRYS 

IF I/O OK 

DRIVE NOT READY? 

IF I SHOULD TRY SOME MORE 



GO TRY SOME MORE 
IF STILL ERROR 



* CHECK THE DIRECTORY ENTRIES IN THIS RECORD 



CD2 
CD2A 



CD3 



STB 

LDA 

STA 

LDX 

TST 

BEQ 

LDA 

BEQ 

BPL 
4 CLR 

PULS 
COMPARE LOOP 



84 A 
10 0CD0 
IF 0CE1 



CDS 



85 
C5 
07 

0B 
F5 



A 

A 

0CD0 

A 
0CC3 



LDA 

BEQ 

BMI 

CLRB 

LDA 

CM PA 

BNE 

INCB 

CMPB 

BCS 



> RETRYS 

#8 

l.S 

#SYSBUF 

>S 

CD5 

<X 

CD4 

CD7 

iS 

D>PC 

,X 

CD7 

CDS 

B,X 
B,U 
CD7 

#11 
CD6 



NUMBER OF DIRECTORY ENTRYS PER REC 

POINT AT SYSTEM BUFFER 

OPTION? 

IF LOOKING FOR A MATCH 

LOOK AT 1ST BYTE 

IF I FOUND RE-USABLE SPACE 

IF NOT USEABLE 

RETURN SUCCESSFULLY 

LOOK AT 1ST BYTE OF DIRECTORY ENTRY 

IF DELETED ENTRY 

IF END OF DIRECTORY ENTRIES 

CHARACTER POSITION COUNTER 

CHR IN DIRECTORY FILE NAME 

CHR IN DCB FILE NAME 

IF NOT A MATCH 

MORE CHARACTERS TO COMPARE? 
IF YES 



PAGE 020 RTN 



.SA:0 



DOS 



SUPPORTING SUBROUTINES 



00940 
00950 
00960 
00970 
00980 
00990 
01000 
01010 
01020 
01030 
01040 
01050 
01060 
01070 
01080 
01090 
01100 
01110 
01120 
01130 
01140 
01150 
01160 
01170 
01180 
01190 
01200 
01210 
01220 
01230 
01240 
01250 
01260 
01270 
01280 
01290 
01300 
01310 
01320 
01330 
01340 
01350 
01360 
01370 
01380 
01390 
01400 
01410 
01420 
01430 
01440 
01450 
01460 
01470 
01480 
01490 
01500 
01510 



01098 

01099A 

01100 

01101A 

01102A 

01103A 

01104A 

01105A 

01106A 

01107A 

01108 

01109A 

01110A 

01111A 

01112 

01113 

01114 

01115 

01116 

01117 

01118 

01119 

01120A 

0U21A 

01122 

01123 

01124 

01125 

01126 

01127A 

01128A 

01129A 

01130 

01131 

01132 

01133 

01134 

01135 

01136 

01137 

01138 

01139 

01140A 

01141A 

01142A 

01143A 

01144A 

01145A 

01146A 

01147A 

01148A 

01149A 

01150A 

01151A 

01152A 

01153A 

01154A 

01155A 



* MATCH FOUND 



0CCE 20 

0CD0 30 
0CD3 6 A 
0CD5 26 
0CD7 6C 
0CDA A6 
0CDD 81 
0CDF 25 

0CE1 B6 
0CE3 A7 
0CE5 35 



E8 



0CB8 



BRA 



CD4 



0CE7 86 
0CE9 



0CEA 86 
0CEC A7 
0CEF 6F 



0CF2 34 
0CF4 BE 
0CF7 EC 
0CFA ED 
0CFC EC 
0CFF ED 
0D01 EC 
0D04 ED 
0D06 34 
0D08 4F 
0D09 IF 
0D0B 8D 
0D0D 35 
0D0F 4F 
0D10 E6 
0D12 27 



88 20 A 
61 A 
D7 0CAE 
C8 23 A 
C8 23 A 
0C A 
A0 0C81 



FF 
E4 
86 



02 
8C 



03 

C8 20 
C8 30 



14 

C006 
C8 20 
81 

C8 22 
81 

C8 24 
81 
08 

8B 
10 
08 

84 
07 



CD7 



LEAX 

DEC 

BNE 

INC 

LDA 

CMPA 

BCS 



POINT TO NEXT DIRECTORY ENTRY 

MORE ENTRIES TO LOOK AT IN THIS REC? 

IF YES 



MORE DIRECTORY RECORDS TO READ? 
IF YES 



A 
A 
A 
A 

2 A 
A 

4 A 
A 
A 

A 

0D1D 

A 

A 
0D1B 



32, X 

l.S 

CD3 

DCBSECU 

DCBSECU 

#12 

CD1 

* DIRECTORY ENTRY NOT FOUND ON THIS DRIVE 
CD8 LDA #*FF 

STA .S 

PULS D,PC 
* 
****************************************** 

* PHYSICAL DISK READ 

* GIVEN: U->DCB 

* FUNCTION: READ INTO DCBBUF 

* (N0TE:DSKCON RETRYS ON ERROR 5 TIMES) 

* RETURNED :DCBOK = RESULT CODE (ALSO IN A) 
*»**»**»♦**»****♦***♦*»»********»**♦*»***# 
DSKRED LDA #2 READ SECTOR OP CODE 

FCB *BC SKIP OVER NEXT INSTR 
* 
*************************** 

* PHYSICAL DISK WRITE 

» ESSENTIALLY SAME AS ABOVE 
*************************** 
DSKWRT LDA #3 WRITE OP CODE 
DSKIO STA DCBOPCU 
CLR DCBMDT.U 

* FALL THRU 
* 
**»***♦****»*#***»****************** 

* CALL DSKCON 

* GIVEN: PARAMETERS IN DCB 

* FUNCTION: XFER PARAMS TO CC006 3 

* CALL DSKCON 

* MOVE RESULT CODE TO DCB 

* LEAVE RESULT CODE IN A 
************************************ 
XFRIOP PSHS B.X 

>*C006 

DCBOPCU 

>X++ 

DCBTRK.U 

,X++ 

DCBBUF ,U 

,X++ 

DP 



LDX 
LDD 
STD 
LDD 
STD 
LDD 
STD 
XIOENT PSHS 
CLRA 
TFR 
BSR 
PULS 
CLRA 
LDB 
BEQ 



A, DP 
DO 10 
DP 

>X 
XIOX 



GET RESULT CODE 
IF NO ERROR) EXIT 



PAGE 021 RTN 



.SA:0 



DOS - SUPPORTING SUBROUTINES 



01520 
01530 
01540 
01550 
01560 
01570 
01580 
01590 
01600 
01610 
01620 
01630 
01640 
01650 
01660 
01670 
01680 
01690 
01700 
01710 
01720 
01730 
01740 
01750 
01760 
01770 
01780 
01790 
01800 
01810 
01820 
01830 
01 840 
01850 
01860 
01870 
01880 
01890 
01900 
01910 
01920 
01930 
01940 
01950 
01960 
01970 
01980 
01990 
02000 
02010 
02020 
02030 
02040 
02050 
02060 
02070 
02080 
02090 



01156 

01157A 

01158A 

01159A 

01160A 

01161A 

01162A 

01163 

01164 

0U65A 

01166A 

01167A 

0U68A 

01169 

01170 

01171 

01172 

01173 

01174A 

01175A 

01176A 

01177A 

01178A 

01179A 

011S0A 

01181A 

01182A 

01183A 

01184 

01185 

01186 

011B7 

01188A 

01189A 

01190 

01191 

01192 

01193 

01194 

01195 

01196 

01197 

0119BA 

01199A 

01200A 

01201A 

01 202 A 

01203A 

01 204 A 

01 205 A 

01 206 A 

01 207 A 

01208 

01209 

01210 

01211 

01212 

01213A 



0D14 58 
0D15 25 
0D17 4C 
0D18 20 
0D1A 4C 
0D1B 35 



0D1D 34 
0D1F B6 
0D22 BE 
0D25 6E 



0D27 86 
0D29 34 
0D2B E6 
0D2E BE 
0D31 ED 
0D33 EC 
0D36 ED 
0D38 CC 
0D3B ED 
0D3D 20 



* GENERATE ERROR NUMBER BASED ON WHICH BIT IS ON 



XIOA 



0D3F 86 
0D41 20 



0D43 6D 
0D46 26 
0D48 4F 
0D49 39 
0D4A A6 
0D4D 84 
0D4F 27 
0D51 8D 
0D53 26 
0D55 20 



0D57 34 



03 0D1A 
FA 0D14 



94 
0024 



XIOB 
XI OX 
ZZ 



LSLB 

BCS 

INCA 

BRA 

INCA 

PULS 

EQU 



IS THIS BIT SET? 
IF YES 



B,X,PC 
ERR1+ERR2+ERR3+ERR4+ERR5+ERR6+ERR7+ERR8 



* THE ABOVE LINE SIMPLY PUTS ERR1-8 ON THE XREF MAP 



76 A DOIO 

0622 A 

C004 A 

04 A 



PSHS 
LDA 
LDX 
JMP 



D,X,Y,U 
>RETRYS 
>*C004 
4.X 



******************************************** 

* PHYSICAL DISK READ - SYSTEM FUNCTIONS 

♦ SAME AS DSKRED EXCEPT SYSTEM'S BUFFER USED 



02 

14 

CB 21 

C006 

81 

CB 22 

81 

06C8 

81 

C7 



A 
A 
A 
A 
A 
A 
A 
A 
A 
0D06 



SYSRED LDA 
SYS 10 PSHS 
LDB 
LDX 
STD 
LDD 
STD 
LDD 
STD 
BRA 



#2 

B>X 

DCBDRV.U 

>*C006 

,X++ 

DCBTRK.U 

,X++ 

#SYSBUF 

,X++ 

XIOENT 



TRACK & SECTOR 



FINISH UP LIKE USER 10 



**************************************** 

* PHYSICAL DISK WRITE - SYSTEM FUNCTIONS 
**************************************** 

03 A SYSWRT LDA #3 
E6 0D29 BRA SYS 10 

* 

************************************************************************** 

* IF DATA IN BUFFER HAS BEEN MODIFIED (DCBMDT NOT = 0) CHECK 

* TO SEE IF WRITES ARE ALLOWED. IF NO, DO NOT SET ERROR - JUST EXIT. 

* IF YES, REWRITE BLOCK IN BUFFER (EXIT WITH ERROR IN A IF WRITE NO GOOD.) 
* 

* GIVEN: U->DCB CONTAINING DCBPRN = PHYSICAL REC NUMBER THAT IS IN BUFFER. 
************************************************************************** 



C8 30 A 
02 0D4A 



C8 10 

02 

F7 

4C 

F4 

93 



70 



A 
A 
0D48 
0D9F 
0D49 
0CEA 



REWRTE TST 

BNE 

RWX CLRA 

RWXX RTS 

RW1 LDA 

ANDA 

BEG! 

BSR 

BNE 

BRA 



DCBMDT, U DATA IN BUFFER MODIFIED? 



RW1 



IF YES 



DCBCFS,U 

#OUT 

RWX 

CSENT 

RWXX 

DSKWRT 



ARE WRITES ALLOWED? 

IF NO, EXIT WITH NO ERROR 

RE-ESTABLISH TRK & SEC FROM PRN 

IF NG, EXIT WITH ERROR 

GO DO REWRITE & RETURN TO CALLER 



* CALCULATE RELATIVE BYTE ADDRESS FROM LOGICAL RECORD NUMBER 

* (DCBRBA = DCBRSZ * DCBLRN) 

************************************************************ 
CALRBA PSHS X,Y,U 



PA6E 022 RTN 



.SA:0 



DOS - SUPPORTING SUBROUTINES 



02100 

02110 

02120 

02130 

02140 

02150 

02160 

02170 

02180 

02190 

02200 

02210 

02220 

02230 

02240 

02250 

02260 

02270 

02280 

02290 

02300 

02310 

02320 

02330 

02340 

02350 

02360 

02370 

02380 

02390 

02400 

02410 

02420 

02430 

02440 

02450 

02460 

02470 

02480 

02490 

02500 

02510 

02520 

02530 

02540 

02550 

02560 

02570 

02580 

02590 

02600 

02610 

02620 

02630 

02640 

02650 

02660 

02670 



01214A 

01215A 

01216A 

01217A 

01218A 

01219A 

01220A 

01221A 

01222A 

01 223 A 

01224A 

01 225 A 

01226A 

01227A 

01 228 A 

01229A 

01 230 A 

01231A 

01232A 

01233A 

01 234 A 

01235A 

01 236 A 

01237A 

01 238 A 

01 239 A 

01 240 A 

01241A 

01242A 

01243A 

01 244 A 

01245A 

01246A 

01247 

01248 

01249 

01250 

01251 

01252 

01253 

01254 

01255 

01256 

01257 

0125BA 

01259A 

01260A 

01261A 

01262A 

01 263 A 

01 264 A 

01 265 A 

01 266 A 

01 267 A 

01268A 

01 269 A 

01270A 

01271A 



0D59 30 
0D5C 31 
0D5F 33 
0D62 6F 
0D64 6F 
0D66 6F 
0D68 A6 
0D6A E6 
0D6C 3D 
0D6D ED 
0D6F A6 
0D71 E6 
0D73 3D 
0D74 E3 
0D76 25 
0D7B ED 
0D7A A6 
0D7C E6 
0D7E 3D 
0D7F E3 
0D81 25 
0D83 ED 
0D85 A6 
0D87 E6 
0D89 3D 
0D8A EB 
0DBC 25 
0D8E E7 
0D90 4D 
0D91 26 
0D93 35 
0D95 86 
0D97 35 



0D99 EC 
0D9C ED 
0D9F A6 
0DA1 34 
0DA3 8E 
0DA6 A6 
0DA9 C6 
0DAB 3D 
0DAC 30 
0DAE EC 
0DB1 6D 
0DB3 2B 
0DB5 83 
0DB8 25 



C8 2B 
CB 11 
C8 2E 
B4 
01 
02 
21 
41 

01 
21 
C4 



84 
ID 
84 
A4 
41 

84 
12 
B4 
A4 
C4 

84 
07 
84 

02 
F0 
10 
F0 



A 
A 
A 

A 
0D95 
A 
A 
A 

A 
0D95 
A 
A 
A 

A 

0D95 

A 

0D95 
A 
A 
A 



LEAX 
LEAY 
LEAU 
CLR 
CLR 
CLR 
LDA 
LDB 
MUL 
STD 
LDA 
LDB 
MUL 
ADDD 
BCS 
STD 
LDA 
LDB 
MUL 
ADDD 
BCS 
STD 
LDA 
LDB 
MUL 
ADDS 
BCS 
STB 
TSTA 
BNE 
PULS 
CRBAER LDA 
PULS 



CB 2B 
C8 29 
4D 
12 

07 C8 
C8 21 
45 



DCBRBA.U 

DCBRSZ.U 

DCBLRN.U 

.X 

liX 

2.X 

1,Y 

1,U 

l.X 
1«Y 
iU 

>X 

CRBAER 
>X 
.Y 
l.U 

>X 

CRBAER 

.X 

,Y 

.U 

.X 

CRBAER 

.X 

CRBAER 
X.Y,U.PC 
#ERR16 
X.Y.U.PC 



IF CARRY 



************************************************************ 

* CALCULATE TRACK & SECTOR 
♦ 

* GIVEN: DCBPRN = RELATIVE RECORD NUMBER 

* FUNCTION: FOLLOW CLUSTER CHAIN UNTIL PROPER CLUSTER FOUND 

* RESULT: DCBTRK & DCBSEC IF RECORD IN RANGE 
» THEY POINT TO LAST SECTOR IF NOT IN RANGE. 

* A = ZERO IF SUCCESSFUL 

* NON ZERO IF NOT 
»♦♦»*»»#»*«»*»»»»»»*#*»»»#**»»»*»**«******»*******#*****»*** 

CALSEC LDD DCBRBA.U DESIRED REC NUMBER 

STD DCBPRN, U SAVE AS THE REC IN THE BUFFER 
CSENT LDA DCBFCL.U 



8B A 
C8 29 A 
E4 A 
15 0DCA 
0009 A 
IB 0DD5 



CS1 



PSHS 


A,X 




LDX 


#FATS 




LDA 


DCBDRVi 


U 


LDB 


#FATSZ 




MUL 






LEAX 


D,X 




LDD 


DCBPRN^ 


iU 


TST 


.S 




BMI 


CS3 




SUBD 


#9 




BCS 


CS4 





POINT TO PROPER FAT TABLE 
REC NUMBER DESIRED 

IF AT END OF CLUSTERS (NULL FILE) 

IF IN THIS CLUSTER 



PAGE 023 RTN 



.SA:0 



DOS 



SUPPORTING SUBROUTINES 



02680 

02690 

02700 

02710 

02720 

02730 

02740 

02750 

02760 

02770 

02780 

02790 

02800 

02810 

02820 

02830 

02840 

02850 

02860 

02B70 

02880 

02890 

02900 

02910 

02920 

02930 

02940 

02950 

02960 

02970 

02980 

02990 

03000 

03010 

03020 

03030 

03040 

03050 

03060 

03070 

03080 

03090 

03100 

03110 

03120 

03130 

03140 

03150 

03160 

03170 

03180 

03190 

03200 

03210 

03220 

03230 

03240 

03250 



01272A 

01273A 

01274A 

01275A 

01276A 

01 277 A 

01 278 A 

01 279 A 

01280 

01281 

01282 

01 283 A 

01 284 A 

01 285 A 

01 286 A 

01 287 A 

01288 

01289 

01290A 

01291 

01 292 A 

01 293 A 

01294A 

01295A 

01296 

01 297 A 

01 298 A 

01299A 

01300A 

01301A 

01 302 A 

01 303 A 

01304A 

01 305 A 

01 306 A 

01 307 A 

01308A 

01 309 A 

01310 

01311A 

01312A 

01313A 

01314A 

01315A 

01316 

01317A 

01318A 

01319A 

01320 

01321A 

01322A 

01323A 

01 324 A 

01 325 A 

01326A 

01 327 A 

01328A 

01329A 



0DBA 
0DBC 
0DBE 
0DC0 
0DC2 
0DC4 
0DC6 
0DC8 



0DCA 
0DCD 
0DCF 
0DD1 
0DD3 



34 
A6 
A6 
2B 
A7 
35 
20 
35 



A6 
84 
26 
86 

20 



0DD5 CB 



0DD7 
0DD9 
0DDB 
0DDD 

0DDF 
0DE1 
0DE3 
0DE5 
0DE7 
0DEA 
0DEC 
0DEE 
0DF0 
0DF2 
0DF4 
0DF7 
00F9 

0DFB 
0DFE 
0DFF 
0E02 
0E04 

0E06 
0E08 
0E0A 

0E0C 
0E0F 
0E11 
0E13 
0E15 
0E17 
0E19 
0E1B 
0E1D 



A6 
6D 
2A 
34 

E6 
C4 
El 
24 
E6 
C4 
26 
35 
20 
26 
A6 
84 
26 

E6 

4F 

10A3 

25 

20 

E6 
CA 

E7 

A6 
84 
26 
8D 
27 
35 
86 
A7 
35 



06 
62 
86 
06 
62 
06 
ED 
06 



A 
A 
A 

0DC8 
A 
A 

0DB5 
A 



CS2 



PSHS 

LDA 

LDA 

BMI 

STA 

PULS 

BRA 

PULS 



D 

2.S 

A<X 

CS2 

2>S 

D 

CS1 

D 



GET NEXT CLUSTER POINTER 
IF AT END OF CLUSTERS 



C8 
08 
66 
11 
46 



0A 

E4 
86 
44 
06 

86 
3F 
61 
0B 
C8 
08 
18 
06 
DF 
2B 
CB 
08 
24 



10 



* REC IS BEYOND END OF CURRENT CLUSTERS 
AM I ALLOWED TO ADD ANOTHER CLUSTER? 



A CS3 



A 
0E37 



0E1B 



C8 2D 

4E 

IB 
E8 

61 
C0 
86 



LDA 
ANDA 
BNE 
CS3A LDA 
BRA 



DCBCFS.U 

•EXTEND 

CS6 

#ERR17 

CSERR 



AM I ALLOWED? 

IF YES, GO TRY IT 

EXTENSION NOT ALLOWED 



* RECORD IS IN THIS CLUSTER 



ADDS 



#10 



< RESULT IS 1-9) 



C8 
20 
0C 
69 
08 
06 
12 
E4 
92 



A 

A 

0E21 

A 

A 

A 

A 

0DF2 

10 A 

A 
0E06 

A 

0DD1 

0E1F 

10 A 

A 
0E1F 



* IS THE SECTOR NUMBER IN B IN USE IN THIS CLUSTER YET? 
LDA .S (CLUSTER NUMBER) 

TST A,X IS THIS CLUSTER THE LAST IN THE FILE? 
BPL CSS IF NO 
PSHS D CLUSTER NUMBER/SECTOR NUMBER 

* IS THIS RECORD BEYOND CURRENT LAST SECTOR USED? 



CS4AE 



CS4A 



LDB 

ANDB 

CMPB 

BCC 

LDB 

ANDB 

BNE 

PULS 

BRA 

BNE 

LDA 

ANDA 

BNE 



A.X 
#63 
l.S 
CS4A 



* IS REC BEYOND LAST BYTE? 



CURRENT LAST SECTOR USED 

THIS ONE 

IF THIS IS LESS OR EQUAL TO CURRENT END 
DCBCFS.U GET FILE STATUS 
#EXTEND FILE EXTENSIONS ALLOWED? 
CS4B IF YES 
D 

CS3A 
CS4C 

DCBCFS.U 

#EXTEND ALLOWED? 
CS4C IF ITS OK 



EXTENSION NOT ALLOWED 
IF NOT IN LAST SECTOR 



10 



A 
0E1F 
0DEE 

A 
A 
A 

A 

A 

0E1F 

0E7E 

0E1F 

A 

A 

A 

A 



LDB 

CLRA 

CMPD 

BCS 

BRA 



DCBRBA+2.U 

DCBNLS.U 

CS4C IF OK 

CS4AE IF NG 



* EXTEND LAST SECTOR IN THIS CLUSTER 



CS4B 



LDB 
ORB 
STB 



l.S 

#*C0 

A,X 



SECTOR NUMBER 



PUT IN FAT TABLE 



* FAT HAS CHANGED - CAN I BYPASS UPDATE THIS TIME? 



CSERR 



LDA 

ANDA 

BNE 

BSR 

BEG! 

PULS 

LDA 

STA 

PULS 



DCBCFS.U 

#FAST 

CS4C 

WRTFAT 

CS4C 

D 

#ERR18 

<S 

A>X,PC 



IF YES 

RE-WRITE FAT TABLE TO REFLECT CHANGE 

IF I/O WAS OK 

FAT RW ERR 
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03260 0133BA 

03270 01331 

03280 01 332 A 

03290 01 333 A 

03300 01334A 

03310 01335A 

03320 01336A 

03330 01 337 A 

03340 0133BA 

03350 01339A 

03360 01340A 

03370 01341A 

03380 01342A 

03390 01343 

03400 01344 

03410 01345 

03420 01346 

03430 01 347 A 

03440 0134BA 

03450 01349A 

03460 01350A 

03470 01 351 A 

03480 01352 

03490 01353A 

03500 01354A 

03510 01355A 

03520 01356A 

03530 01357A 

03540 01358A 

03550 01359A 

03560 01360A 

03570 01361A 

03580 01362A 

03590 01363A 

03600 01 364 A 

03610 01365A 

03620 01366A 

03630 01367A 

03640 01368A 

03650 01369A 

03660 01370A 

03670 01371A 

03680 01 372 A 

03690 01 373 A 

03700 01 374 A 

03710 01375A 

03720 01376A 

03730 01 377 A 

03740 01378A 

03750 01379A 

03760 01380A 

03770 013B1A 

03780 01 382 A 

03790 01383A 

03800 01384 

03810 01385 

03820 01386 

03830 01387 



.SA:0 



DOS - SUPPORTING SUBROUTINES 



0E37 E6 
0E39 2A 
0E3B C6 
0E3D 4F 
0E3E 34 

0E40 A6 
0E42 AB 
0E44 81 
0E46 24 
0E48 E6 
0E4A CI 
0E4C 27 
0E4E A6 
0E50 A0 
0E52 25 
0E54 E6 
0E56 CI 
0E58 27 
0E5A A6 
0E5C 4C 
0E5D A7 
0E5F 81 
0E61 25 
0E63 35 
0E65 86 
0E67 20 
0E69 E6 
0E6B 2A 
0E6D A7 
0E6F 20 
0E71 A7 
0E73 C6 
0E75 E7 
0E77 35 
0E79 35 
0E7B 7E 



E4 A 
02 0E3D 
22 A 



06 

61 
E4 
44 
06 
86 
FF 
IB 
61 
E4 
06 
86 
FF 
0F 
E4 

E4 
44 
DD 
06 
16 
B2 
62 
04 
4D 
02 
85 
C0 
86 
06 
12 
0D9F 



CONTINUE - IT IS NOW WITHIN RANGE OF FILE 
FILE - XLATE CLUSTER INTO TRACK & SECTOR 
CLUSTER NUMBER 

THIS AN ODD CLUSTER? 

NO 

YES, USE SECTORS 10-18 

CLUSTER BELOW DIRECTORY? 

YES 

NOT GO ONE TRACK FARTHER 



* TRY TO ADD ANOTHER CLUSTER TO THE FILE 

* NEXT CLUSTER USED WILL BE THE CLOSEST ONE TO THE LAST ONE USED BY 

* THIS FILE. IF FIRST EVER FOR THIS FILE, IT WILL BE CLOSEST TO MIDDLE. 
CS6 LDB ,S LAST CLUSTER NUMBER USED 

BPL CS6A IF NOT VERY FIRST ASSIGNED TO FILE 
LDB #34 START SEARCH AT CLUSTER 34 
CS6A CLRA STARTING DISPLACEMENT 

PSHS D 

* LOOP TO LOOK FOR AN AVAILABLE CLUSTER 



0E1F 


35 


06 


A 


CS4C 


PULS 


D 


cor 










* RECORD IS 


IN RANGE 


of f: 


0E21 


A6 


E4 


A 


CS5 


LDA 


,S 


en 


0E23 


44 








LSRA 




IS 


0E24 


24 


02 


0E28 




BCC 


CS5A 


IF 


0E26 


CB 


09 


A 




ADDB 


#9 


IF 


0E28 


E7 


C8 


23 A 


CS5A 


STB 


DCBSEC, 


u 


0E2B 


81 


11 


A 




CMPA 


#17 


IS 


0E2D 


25 


01 


0E30 




BCS 


CS5B 


IF 


0E2F 


4C 








INCA 




IF 


0E30 


A7 


C8 


22 A 


CS5B 


STA 


DCBTRKi 


iU 


0E33 


6F 


E4 


A 




CLR 


,S 




0E35 


35 


92 


A 




PULS 


A,X,PC 





A 
A 
A 

0E4E 
A 
A 

0E69 
A 
A 

0E5A 
A 
A 

0E69 
A 

A 
A 

0E40 
A 
A 

0E1B 
A 

0E71 
A 

0E73 
A 
A 
A 
A 
A 
A 



CS7B 



CS7 LDA 
ADDA 
CMPA 
BCC 
LDB 
CMPB 
BEG! 

CS7A LDA 
SUBA 
BCS 
LDB 
CMPB 
BEG! 
LDA 
INCA 
STA 
CMPA 
BCS 
PULS 
LDA 
BRA 
LDB 
BPL 
STA 
BRA 

CS8A STA 

CS8B LDB 
STB 
PULS 
PULS 
JMP 



1,S 

,S 

#68 

CS7A 

A,X 

#*FF 

CS8 

1,S 

,S 

CS7B 

A,X 

#*FF 

CS8 

,S 



LAST CLUSTER OF FILE 

ADD DISPLACEMENT 

IN RANGE OF TABLE? 

IF NO 

GET FAT TABLE BYTE 

IS IT AVAILABLE 

IF YES 

LOOK THE OTHER WAY 

IF NOT IN RANGE OF THE TABLE 

GET FAT TABLE BYTE 

AVAILABLE? 

IF YES 



CSS 



,S 

#68 

CS7 

D 

#ERR22 

CSERR 

2,S 

CS8A 

DCBFCL,U THIS IS FIRST CLUSTER 

CS8B 

B,X 

#*C0 

A,X 

D 

A,X 

CSENT 



HAVE I TRIED ALL POSSIBILITIES? 
IF NOT YET 
NORMALIZE STACK 
DISK FULL 

ORIGINAL ENDING CLUSTER 



ADD TO CHAIN 

SAY NONE OF THESE SECTORS USED 



NORMALIZE STACK 

GO TRY AGAIN FROM THE TOP! 



* REWRITE FAT TABLE ON DIRECTORY TRACK 



■ ▼■ 
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DOS - SUPPORTING SUBROUTINES 



03840 
03850 
03860 
03870 
03880 
03890 
03900 
03910 
03920 
03930 
03940 
03950 
03960 
03970 
03980 
03990 
04000 
04010 
04020 
04030 
00010 
00020 
00030 
00040 
00050 
00060 
00070 
00080 
00090 
00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 



01388 

01389 

01390 

01391A 

01 392 A 

01 393 A 

01394A 

01395A 

01396A 

01397A 

01398A 

01399A 

01400A 

01401A 

01402A 

01403A 

01404A 

01405A 

01406A 

01407A 

01408 

01409 

01410 

01411 

01412 

01413 

01414 

01415 

01416A 

01417A 

01418A 

01419A 

01420A 

01421A 

01 422 A 

01423A 

01 424 A 

01425A 

01426A 

01427A 

01 428 A 

01429A 

01430A 

01431A 

01 432 A 

01 433 A 

01 434 A 

01 435 A 

01436A 

01437 

01438A 

01439A 

01440A 

01441A 

01442A 

01443A 

01444A 

01445A 



* GIVEN: X-5- CORRECT FAT TABLE IN MEMORY 

* U-> DCB CONTAINING CORRECT DRIVE NUMBER 
*»**»**«****»»»******♦*»**»♦*****»**»*****♦*#*»* 



0E7E 34 
0E80 BE 
0E83 86 
0E85 A7 
0E87 A6 
0EBA A7 
0E8C CC 
0E8F ED 
0E91 EC 
0E93 ED 
0E95 34 
0E97 4F 
0E98 IF 
0E9A AD 
0E9E 35 
0EA0 A6 
0EA2 35 



0EA4 7E 

0EA7 

0EA9 

0EAB 

0EAD 

0EAF 

0EB1 

0EB3 

0EB5 

0EB7 

0EB9 

0EBB 

0EBD 

0EBF 

0EC1 

0EC3 

0EC5 

0EC7 

0EC9 

0ECB 

0ECD 

0ECF 
0ED5 4D 
0ED6 27 
0ED8 AD 
0EDC 7E 
0EDF CC 
0EE2 FD 
0EE5 39 



10 

C006 

03 

80 

C8 21 

80 

1102 

81 

E4 

81 

08 



8B A 
9F C004 A 
08 A 
84 A 
90 A 



0ECF 
0329 
035 C 
037E 
03AE 
0440 
0529 
0607 
0610 
0619 
0622 
06EA 
0762 
07D9 
088A 
08B1 
0984 
0A49 
0C08 
0CA1 
0D2A 



04 0EDC 
9F 0616 A 
0FF6 A 
10A2 A 
0625 A 



WRTFAT PSHS 
LDX 
LDA 
STA 
LDA 
STA 
LDD 
STD 
LDD 
STD 
PSHS 
CLRA 
TFR 
JSR 
PULS 
LDA 
PULS 
TTL 



X 

>*C006 

#3 

.X + 

DCBDRV.U 

>X + 

#*1102 

,Xt+ 

.s 
,x++ 

DP 



WRITE 



TRACK 17> SECTOR 2 



ADDR OF FAT TABLE 



AiDP 

CSC004] DO 10 

DP 

. X RESULT 

X.PC 

DOS - PAGING & OVERLAYS 



**********♦***#**»****»**«**»**»»*******»**♦»*»*»****»*********»*»»♦«♦*»»* 

* ON DISK! THIS PROGRAM BEGINS HERE! EVERY THING THAT PRECEEDS THIS POINT 

* IS RECORDED ON DISK AFTER THE END OF THE OVERLAYS. WHEN DOS IS FIRST 

* LOADED INTO MEMORY, THE ROUTINE CALLED "OVRLAY" SHIFTS THOSE ROUTINES 

* DOWN TO THEIR PROPER PLACE. 
*»******«*»*»****♦***♦**»#*♦♦*»»***♦******»«■*»♦*»♦**»*»♦*»*♦♦*****#*»#«»*« 



DOS 



JMP 
FDB 
FDB 
FDB 
FDB 
FDB 
FDB 
FDB 
FDB 
FDB 
FDB 
FDB 
FDB 
FDB 
FDB 
FDB 
FDB 
FDB 
FDB 
FDB 
FDB 



D0S1 

Bl-DOS 

B2-D0S 

B3-D0S 

B4-D0S 

B5-D0S 

B6-D0S 

B7-D0S 

B8-D0S 

B9-D0S 

B10-DOS 

Bll-DOS 

B12-D0S 

B13-D0S 

B14-D0S 

B15-D0S 

B16-D0S 

B17-D0S 

B18-D0S 

B19-D0S 

B20-DOS 



JUMP OVER DISPLACEMENTS TO OVERLAYS 



* MINIMUM INITIALIZATION FOLLOWS 



D0S1 DOS 
TSTA 
BEQ 
JSR 
D0S2 JMP 
D0S3 LDD 
STD 
RTS 



DO.INIT GO INITIALIZE < MENU ETC) 

D0S2 
C ERROR] 
OB ASIC 
#OVRLAY 
>OLYLOC 
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DOS - PAGING & OVERLAYS 



00390 


01446 










00400 


01447 










00410 


01448 










00420 


01449 










00430 


01450 










00440 


01451 










00450 


01452 










00460 


01453 










00470 


01454 










004B0 


01455A 


0EE6 


34 


16 


A 


00490 


01456A 


0EE8 


B6 


FF22 


A 


00500 


01457A 


0EEB 


44 






00510 


01458A 


0EEC 


24 


04 


0EF2 


00520 


01459A 


0EEE 


86 


01 


A 


00530 


01 460 A 


0EF0 


35 


96 


A 


00540 


01461A 


0EF2 


34 


01 


A 


00550 


01 462 A 


0EF4 








00560 


01 463 A 


0EF6 


A6 


61 


A 


00570 


01 464 A 


0EF8 


5F 






00580 


01465A 


0EF9 


BD 


1A 


0F15 


00590 


01466A 


0EFB 


C6 


08 


A 


00600 


01467A 


0EFD 


34 


04 


A 


00610 


01 468 A 


0EFF 


5F 






00620 


01469A 


0F00 


44 






00630 


01470A 


0F01 


59 






00640 


01471A 


0F02 


59 






00650 


01472A 


0F03 


8D 


10 


0F15 


00660 


01473A 


0F05 


6A 


E4 


A 


00670 


01474A 


0F07 


26 


F6 


0EFF 


00680 


01475A 


0F09 


35 


04 


A 


00690 


01476 










00700 


01477A 


0F0B 


C6 


02 


A 


00710 


01478A 


0F0D 


F7 


FF20 


A 


00720 


01479A 


0F10 


35 


01 


A 


00730 


01 480 A 


0F12 


4F 






00740 


01481A 


0F13 


35 


96 


A 


00750 


01482A 


0F15 


F7 


FF20 


A 


00760 


01 483 A 


0F18 


BE 


0623 


A 


00770 


01 484 A 


0F1B 


30 


IF 


A 


00780 


01485A 


0F1D 


26 


FC 


0F1B 


00790 


01 486 A 


0F1F 


39 






00800 


01487 










00810 


01488 










00820 


01489 










00830 


01490 










00840 


01491 










00850 


01492A 


0F20 


34 


46 


A 


00860 


01493A 


0F22 


4D 






00870 


01494A 


0F23 


27 


0C 


0F31 


00880 


01 495 A 


0F25 


FC 


010D 


A 


00890 


01496A 


0F28 


ED 


41 


A 


00900 


01 497 A 


0F2A 


33 


43 


A 


00910 


01498A 


0F2C 


FF 


010D 


A 


00920 


01 499 A 


0F2F 


35 


C6 


A 


00930 


01500 










00940 


01501 










00950 


01502 










00960 


01503 











****************************************************** 

* 8 BIT PRINTER DRIVER 

* GIVEN: A=CHR TO BE SENT TO PRINTER 

* RETURNED: A IN TACT 

* CC = Z CONDITION IF SENT OK 

* CC = NON-Z IF PRINTER NOT READY - TRY AGAIN 
****************************************************** 

* IS PRINTER READY? 



DPRNT 



DP2 



PSHS 

LDA 

LSRA 

BCC 

LDA 

PULS 

PSHS 

DSABLI 

LDA 

CLRB 

BSR 

LDB 

PSHS 

CLRB 

LSRA 

ROLB 

ROLB 

BSR 

DEC 

BNE 

PULS 



DiX 
>U4BDR 

DPI 

#1 

D.X.PC 

CC 

NO 

l.S 

LPSND 

#8 

B 



LPSND 
,S 
DP2 
B 



IF READY 
SET NON-Z 



CONDITION 



SAVE INTERUPT STATUS 

INTERUPTS DURING HARD LOOP TIMING 

CHR TO SEND 

SEND START BIT 
BITS TO SEND 
LOOP COUNTER 



SEND THE BIT 



GO BACK FOR NEXT BIT 



* INITIATE STOP BIT (IT CONTINUES UNTIL PRINTER SAYS "READY") 



LPSND 



LPDLP 



LDB 

STB 

PULS 

CLRA 

PULS 

STB 

LDX 

LEAX 

BNE 

RTS 



#2 

>U4ADR 

CC 

D.X.PC 

>U4ADR 

>RATE 

-liX 

LPDLP 



RESTORE INTERUPT STATUS 
SET ZERO CONDITION CODES 



LATCH BIT TO OUTPUT 

TIME CONSTANT FOR TRANSMISSION 



REG FOR ON OR OFF? 
IF OFF 



************************************************ 

* TURN ON OR OFF A TIME DRIVEN ROUTINE 

* GIVEN: U-> START OF ROUTINE THAT FOLLOWS SPECS 
************************************************ 
DTMEON PSHS D,U 

TSTA 

BEQ DTMEOF 

LDD >IR<5+1 

STD 1 , U 

LEAU 3.U 

STU >IRS+1 

PULS D)U.PC 
* 
********************************* 

* TURN OFF A TIME DRIVEN ROUTINE 

* GIVEN: U -> START OF ROUTINE 
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DOS 



PAGING & OVERLAYS 



00970 
00980 
00990 
01000 
01010 
01020 
01030 
01040 
01050 
01060 
01070 
01080 
01090 
01100 
01110 
01120 
01130 
01140 
01150 
01160 
01170 
01180 
01190 
01200 
01210 
01220 
01230 
01240 
01250 
01260 
01270 
01280 
01290 
01300 
01310 
01320 
01330 
01340 
01350 
01360 
01370 
01380 
01390 
01400 
01410 
01420 
01430 
01440 
01450 
01460 
01470 
01480 
01490 
01500 
01510 
01520 
01530 
01540 



01504 

01505A 

01506A 

01507A 

0150SA 

01509A 

01510A 

01511A 

01512A 

01513A 

01514A 

01515A 

01516A 

01517A 

01518 

01519 

01520A 

01521A 

01522A 

01523A 

01524 

01525 

01526 

01527 

01528A 

01529A 

01530A 

01531A 

01532A 

01533A 

01534A 

01535 

01536 

01537 

0153B 

01539 

01540 

01541 

01542A 

01543A 

01544A 

01545A 

01546A 

01547A 

01548A 

01549A 

01550A 

01551A 

01552A 

01553A 

01554A 

01555A 

01556A 

01557A 

01558A 

01559A 

01560A 

01561A 



*»*#♦******************#*#*#*#*** 



0F31 33 
0F33 34 
0F35 CE 
0F38 AE 
0F3A 8C 
0F3D 27 
0F3F AC 
0F41 27 
0F43 IF 
0F45 33 
0F47 20 
0F49 35 
0F4B 35 



0F4D AE 
0F4F AF 
0F51 35 
0F53 35 



0F55 7E 
0F58 FC 
0F5B 
0F5E FD 
0F61 4F 
0F62 IF 
0F64 20 



0F66 BA 
0F68 BE 
0F6B Al 
0F6D 27 
0F6F 34 
0F71 4D 
0F72 2B 
0F74 SD 
0F76 20 
0F78 8D 
0F7A 27 
0F7C 35 
0F7E 35 
0F80 BE 
0FB3 34 
0F85 BE 
0F88 30 
0F8A 34 
0F8C 30 
0F8E 34 



43 

50 

010D 

C4 

0F5B 

0A 

62 

0A 

03 

5E 

EF 

50 

C6 



IE 
C4 
50 
C6 



0000 
0620 



0620 



8B 
EF 



A 
A 
A 
A 
A 

0F49 
A 

0F4D 
A 
A 

0F38 
A 
A 



A 

0F55 



80 

0625 

IF 

11 

04 

04 

5C 

06 

45 

02 

84 

04 

0F9B 

10 

0625 

02 

10 

IE 

14 



DTO 



DTMEOF LEAU 
PSHS 
LDU 
LDX 
CMPX 
BEG 
CMPX 
BEQ 
TFR 
LEAU 
BRA 
PULS 
PULS 



3,U 

X.U 

#IRQ+1 

.U 

#STDTME 

DT02 

2.S 

DT03 

D.U 

-2.U 

DTO 

X.U 

D,U,PC 



ADDR STORED IN CHAIN 



LOOK AT ADDR OF NEXT ROUTINE 

IS IT END OF CHAIN? 

IF YES> SET OUT 

IS IT THE ONE SOUGHT? 

IF YES 



X POINTING AT DESIRED ROUTINE 

U POINTING AT WHERE THAT POINTER CAME FROM 



LDX 
STX 
PULS 
PULS 



-2.X 
,U 
X.U 
D.U.PC 



GET ADDR THAT DESIRED ROUTINE POINTS TO 
UNLINK HIS ROUTINE 



* STANDARD TIME ROUTINE - LINKED IN BY INITIAL START UP ROUTINE 



STMX JMP 
STDTME LDD 
INCD 
STD 
CLRA 
TFR 
BRA 



> 




CLOCK 



> CLOCK 



A, DP 
STMX 



ENSURE ROM ROUTINE USES PAGE ZERO 



*****************#*******##*#*****###*#*#*************♦**** 

* CALL A SYSTEM OVERLAY (OR USER OVERLAY) 

* GIVEN: OVERLAY NUMBER IN "A" 

* OVERLAY IS LOADED IF NOT PRESENT IN MEMORY 

* NOTE: X IS NOT PRESERVED - USED FOR OVERLAY BASE ADDRESS 
****»****»*»»***»»♦********»***»***»»**************»*♦***** 



A 
A 
A 
0F80 
A 

0F78 

0FD2 

0F7E 

0FBF 

0F7E 

A 

A 

A 

A 

A 

A 

A 

A 

A 



USROLY ORA 
SYSOLY LDX 
CMPA 
BEQ 
PSHS 
TSTA 
BMI 
BSR 
BRA 
BSR 
BEQ. 
PULS 
PULS 
LDX 
PSHS 
LDX 
LEAX 
PSHS 
LEAX 
PSHS 



SYSOl 



SYS02 
SYS03 



#*B0 

>OLYLOC 

-l.X 

SYS03 

B 

SYSOl 

SYSLOD 

SYS02 

USRLOD 

SYS02 

B.PC 

B 

#SYS04 

X 

50LYLOC 

2.X 

X 

-2.X 

B.X 



POINT AT CURRENT OVERLAY LOAD AREA 
IS THE DESIRED OVERLAY ALREADY THERE? 
IF YES 

SYSTEM OR USER? 

IF USER 

LOAD THE OVERLAY 

LOAD THE OVERLAY 

IF OK 

IF LOAD ERROR 

WHERE TO GO ON THE WAY BACK FROM THE OVERLAY 

OVERLAY LOAD AREA 

ENTRY POINT WITHIN OVERLAY 

PROVIDE USER WITH HIS BASE ADDRESS 
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DOS 



01550 
01560 
01570 
01580 
01590 
01600 
01610 
01620 
01630 
01640 
01650 
01660 
01670 
01680 
01690 
01700 
01710 
01720 
01730 
01740 
01750 
01760 
01770 
01780 
01790 
01800 
01810 
01820 
01830 
01840 
01850 
01860 
01870 
01880 
01890 
01900 
01910 
01920 
01930 
01940 
01950 
01960 
01970 
01980 
01990 
02000 
02010 
02020 
02030 
02040 
02050 
02060 
02070 
02080 
02090 
02100 
02110 
02120 



01562A 

01563A 

01564A 

01565A 

01566A 

01567 

01568 

01569A 

01570A 

01571A 

01572A 

01573A 

01 574 A 

01575A 

01576A 

01577 

01578 

01579 

01580 

01581 

01582 

015B3A 

015B4A 

01585A 

01586A 

01587A 

01588A 

01589A 

01590 

01591 

01592 

01593 

01594 

01595A 

01596A 

01597A 

01598A 

01599A 

01600A 

01601A 

01602A 

01603A 

01604A 

01 605 A 

01606A 

01607A 

01 608 A 

01609 

01610 

01611 

01612 

01613A 

01614A 

01615A 

01616A 

01617A 

01618A 

01619A 



0F90 EC 
0F92 30 
0F94 30 
0F96 BF 
0F99 35 



0F9B 34 
0F9D BE 
0FA0 30 
0FA2 EC 
0FA4 
0FA9 30 
0FAB BF 
0FAE 35 



0FB0 8A 
0FB2 34 
0FB4 EC 
0FB6 ED 
0FB8 CC 
0FBB ED 
0FBD 35 



84 

8B 

03 

0625 

94 



17 

0625 
ID 
84 

SB 

0625 

97 



80 

06 

64 

62 

0F68 

64 

86 



0FBF 
0FC1 
0FC3 
0FC7 
0FCA 
0FCC 
0FCE 
0FD0 
0FD2 
0FD4 
0FD8 
0FDB 
0FDD 
0FDF 



8A 

34 

10BE 

CE 

8D 

27 

86 

35 

34 

108E 

CE 

8D 

26 

35 



80 

60 

0627 

0697 

7A 

02 

17 

E0 

60 

0EA5 

0635 

69 

02 

E0 



0FE1 8E 
0FE4 CE 
0FE7 C6 
0FE9 17 
0FEC CE 
0FEF C6 
0FF1 17 



PAGING & OVERLAYS 

LDD >X GET SIZE OF OVERLAY 

LEAX D.X POINT TO END OF OVERLAY 

LEAX 3.X POINT TO BASE OF NEXT OVERLAY AREA 

STX >OLYLOC 

PULS B.X.PC BASE ADDR OF OVERLAY 



* ON THE WAY BACK. ADJUST OLYLOC 



SYS04 



0400 

100D 

10 

FC7B 

0400 

F0 

FC73 



A 
A 
A 

0C67 
A 
A 

0C67 



PSHS 

LDX 

LEAX 

LDD 

NEGD 

LEAX 

STX 

PULS 



CC.D.X 
>OLYLOC 

-3.X 
.X 



GET SIZE OF THIS OVERLAY 



D.X POINT AT BEGINNING OF OVERLAY I AM EXITING 
>OLYLOC SAVE IT 
CC.D.X. PC 



************************************************************ 

* RETURN FROM ONE OVERLAY & XFER CONTROL TO ANOTHER 

* GIVEN: STACK NORMALIZED AS IF READY TO RTS FROM AN OVERLAY 

* A = DESIRED OVERLAY NUMBER 
************************************************************ 



DUSRGO ORA 
DGO PSHS 
LDD 
STD 
LDD 
STD 
PULS 



#$80 

D 

4.S 

2.S 

#SYSOLY 

4.S 

D.PC 



SAVE D 

(RET ADDR TO SYS04) 

CAUSE "RETURN" TO SYSOLY AFTER "UNDOING" 

RETURNS TO SYS04 



***************************************** 

* LOAD A SYSTEM OVERLAY (OR USER OVERLAY) 

* GIVEN: A = OVERLAY NUMBER 
***************************************** 



A 

A 

A 

A 

1046 

0FD0 

A 

A 

A 

A 

A 

1046 

0FE1 

A 



USRLOD ORA 
PSHS 
LDY 
LDU 
BSR 
BEG 
LDA 
SLDX PULS 
SYSLOD PSHS 
LDY 
LDU 
BSR 
BNE 
PULS 



#$80 

Y.U 

>USRBSE 

WUSRDCB 

PAGE IN 

SLDX 

#ERR23 

Y.U.PC 

Y.U 

#DOS+l 

#DOSDCB 

PAGE IN 

ABORT 

Y.U.PC 



LOAD THE OVERLAY 
IF LOADED OK 



LOC OF OVERLAY'S RBA TABLE IN MEMORY 
POINT AT SYSTEM'S DCB 
LOAD THE OVERLAY 
IF SYSTEM FAILURE 



********************************************* 
* FATAL ERROR OCCURRED IN DOS - CAN'T PROCEED 
*♦****»**»»**»**»*************«»**»*■***»***** 



ABORT 



LDX 


#$400 


LDU 


#ABTMSG 


LDB 


#16 


LBSR 


XFRUX 


LDU 


#$400 


LDB 


#256-16 


LBSR 


XFRUX 



VID 
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PAGING & OVERLAYS 



02130 
02140 
02150 
02160 
02170 
02180 
02190 
02200 
02210 
02220 
02230 
02240 
02250 
02260 
02270 
02280 
02290 
02300 
02310 
02320 
02330 
02340 
02350 
02360 
02370 
02380 
02390 
02400 
02410 
02420 
02430 
02440 
02450 
02460 
02470 
02480 
02490 
02500 
02510 
02520 
02530 
02540 
02550 
02560 
02570 
02580 
02590 
02600 
02610 
02620 
02630 
02640 
02650 
02660 
02670 
02680 
02690 
02700 



01620A 

01621A 

01622A 

01623A 

01624A 

01625A 

01626A 

01 627 A 

01 628 A 

01629A 

01630A 

01631A 

01632 

01633 

01634 

01635 

01636 

01 637 A 

01638A 

01639A 

01640A 

01641A 

01642A 

01 643 A 

01644A 

01645A 

01 646 A 

01647A 

01 648 A 

01649A 

01650 

01651 

01652 

01653 

01654A 

01655A 

01656A 

01657 

01658 

01659 

01660 

01661 

01662 

01663 

01664 

01665 

01666A 

01 667 A 

01668A 

01 669 A 

01670A 

01671A 

01672A 

01673A 

01674A 

01675A 

01676A 

01 677 A 



0FF4 8D 
0FF6 4D 
0FF7 
0FF9 
0FFD BD 
1000 
1006 7F 
1009 6E 
100D 
1013 
1014 
101B 



3F 



1035 



27 
10CE 



0D 1006 
0400 A 
0EDF A 

0071 A 
9F FFFE A 
53 A 
60 A 
46 A 
6060 A 



101D 
101F 
1021 
1023 
1026 
102 A 
102D 
102F 
1031 
1033 
1035 
1039 
103B 



IF 

86 

34 

CC 

108E 

CE 

BD 

35 

IF 

8D 

27 
39 



89 

01 

06 

0032 

0045 

0000 

0D 

06 

02 

07 

FA 



103C 34 66 

103E 

1044 35 E6 



1046 BE 

1049 A7 
104B IF 
104D C4 
104F 58 

1050 4F 

1051 EC 
1053 C3 
1056 6F 
1059 ED 
105C CC 
105F ED 



0625 
IF 
89 
7F 



AB 
0005 
CB 2B 
CB 2C 
0002 
C8 11 



BSR 

OBASIC TSTA 

BEO 

LDS 

JSR 

DOS 

OBAS1 CLR 

JMP 

ABTMSG FCC 

FCB 

FCC 

FDB 



DERR 

OBAS1 

#STACK 

DOS3 

DO. MENU 

>*71 

C *FFFE D 

/SYSTEM/ 

$60 

/FAILURE/ 

*6060 



WAIT FOR A KEYSTROKE 



RESET STACK & OLYLOC 



************************** 

* USER ABORT ROUTINE 

* GIVEN: ERROR NUMBER IN A 
*»*****»****»**»***♦***♦** 



A 
A 
A 
A 
A 
A 

103C 
A 
A 

103C 

1035 



DERROR TFR 
LDA 
PSHS 
LDD 
LDY 
LDU 
BSR 
PULS 
TFR 
BSR 



A.B 

#1 

D 

#50 

#69 

#0 

DOMAP 

D 

D.Y 

DOMAP 



DERR 



SYSTEM POLCAT 
BEQ DERR 
RTS 



(ADD 256 TO IT) 
SAVE FOR LATER 
START OF INSTRUCTIONS 
END OF INSTRUCTIONS 
CLEAR SCREEN FIRST 
GIVE INSTRUCTIONS 



DISPLAY ERROR 

WAIT FOR ANY KEYSTROKE 



************************* 

* DO MAP DISPLAY FUNCTION 
************************* 
DOMAP PSHS D.YiU 

DOS DO, MAP 

PULS D.Y.U.PC 
* 
*********************************************#*****+*+**+*#*##***+#*+#** 

* LOAD OVERLAY ROUTINE 
* 

* GIVEN: A=OVERLAY NUMBER 

* U-> PROGRAM DCB 

* Y-> TABLE CONTAINING RBA'S OF OVERLAYS 

* THE FILE MUST HAVE PREVIOUSLY BEEN OPENED! 
m******************************************************.**************** 



PAGE IN LDX 

STA 

TFR 

ANDB 

LSLB 

CLR A 

LDD 

ADDD 

CLR 

STD 

LDD 

STD 



>OLYLOC 
-l.X 
A,B 
#*7F 



BYTES PER VECTOR 



GET RBA OF START OF OVERLAY 
ADJUST TO RBA WITHIN DISK FILE 



D,Y 

#5 

DCBRBA.U 

DCBRBA+liU 

#2 LENGTH OF A SIZE FIELD 

DCBRS2.U SET TO READ 2 BYTES 
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PAGING 6 OVERLAYS 



02710 
02720 
02730 
02740 
02750 
02760 
02770 
02780 
02790 
02800 
02810 
02B20 
02830 
028A0 
02850 
02860 
02870 
02880 
02890 
02900 
02910 
02920 
02930 
02940 
02950 
02960 
02970 
02980 
02990 
03000 
03010 
03020 
03030 
03040 
03050 
03060 
03070 
03080 
03090 
03100 
03110 
03120 
03130 
03140 
03150 
03160 
03170 
03180 
03190 
03200 
03210 
03220 
03230 
03240 
03250 
03260 
03270 
03280 



01678A 

01679A 

01 680 A 

01681A 

01682A 

01 683 A 

01 684 A 

01 685 A 

01686A 

01687A 

01688A 

01 689 A 

01690A 

01691A 

01692A 

01 693 A 

01694A 

01695A 

01696A 

01 697 A 

01698A 

01699A 

01700 

01701 

01702 

01703 

01704 

01705A 

01706A 

01707A 

01708 

01 709 A 

01710 

01711 

01712 

01713 

01714 

01715 

01716 

01717 

01718 

01719 

01720 

01721A 

01722A 

01723A 

01724A 

01725A 

01726A 

01 727 A 

01728 

01729A 

01730A 

01731A 

01732A 

01733 

01734A 

01735A 



1062 AF 
1065 CC 
1068 ED 
106B 8D 
106D 30 
106F EC 
1072 AF 
1075 30 
1077 ED 
1079 6F 
107B 83 
107E ED 
1081 8D 

1083 4F 

1084 39 
1085 
108B 27 
108D 32 
108F BE 
1092 6F 

1094 4D 

1095 39 



1096 
109C AE 
109F IF 



10A1 



10A2 8E 

10A5 CE 
10A8 

10AC A6 

10AE A7 

10B0 31 

10B2 26 



C8 27 

FFFF 
C8 29 
18 
02 

D8 27 
CB 27 
8B 
IE 
84 

0002 
C8 11 
02 



A 
1085 
A 
A 
A 
A 
A 
A 
A 
A 
1085 



PIRD 



08 1095 
62 A 
0625 A 
84 A 



PIERR 



PIERX 



BTX 

LDD 

STD 

BSR 

LEAX 

LDD 

STX 

LEAX 

STD 

CLR 

SUBD 

STD 

BSR 

CLR A 

RTS 

DOS 

BEQ 

LEAS 

LDX 

CLR 

TSTA 

RTS 



DCBLRB.U 

#*FFFF 

DCBPRN.U FORCE INITIAL PHYSICAL READ 

PIRD 

2.X 

CDCBLRB.U: LENGTH OF ROUTINE (INCLUDING SIZE WORD) 

DCBLRB.U WHERE REST OF OVERLAY GOES 

D.X POINT TO END OF OVERLAY + 2 

-2.X SAVE HIS SIZE AT END 

,X SAY NO VALID OVERLAYS FOLLOW 

#2 SIZE OF THE REST 

DCBRSZ.U SAVE AS RECORD SIZE 

PIRD 



READ.RBA 

PIERX 

2.S 

>OLYLOC 

.X 



BYPASS RET ADDR 



SAY THIS OVERLAY DOSN'T EXIST IN MEMORY 
SET COND CODES 



****************************************************** 

* MINIMUM LOGIC TO LOAD & PASS CONTROL TO USER PROGRAM 

* JUMP HERE FROM OVERLAY 12 
****************************************************** 



B12A 



C8 

15 



00 



DOS 
LDX 
TFR 

FCB 



READ.RBA READ IN THE ROOT SEGMENT 
DCBLRB.U BASE OF PROGRAM 
X.PC JUMP TO ROOT 







PLACE WHERE NUMBER OF 1ST OVERLAY LOADED GOES 



1BD0 
0989 
108E 051B 
80 
C0 
3F 
FB 



10B4 CE 0600 

10B7 BE 1104 

10BA C6 C8 

10BC BD 0C6F 

10BF 10CE 0400 
10C3 BE 010D 



»#***********»*****♦****************»******»******»*****»**»**»*********** 

* OVERLAY SECTION FOLLOWS 

* ALL SECTIONS THAT FOLLOW ARE RELOCATABLE. 

* <THE FIRST OVERLAY IS LOADED AT THIS ADDRESS) 

it************************************************************************* 
* 

* THE FOLLOWING ROUTINE SIMPLY SHIFTS PART OF DOS DOWN TO *989. IT 
» IS LOADED AFTER THE END OF THE REST OF THE PGM SO AS TO PREVENT 

* CONFLICTS WITH BASIC. 

* IT IS CLOBBERED WHEN FIRST OVERLAY IS LOADED! 
A OVRLAY LDX #LASTPG 

A LDU #*9B9 

A LDY #DOS-ORGIN AMOUNT OF PGM TO XFER 
A OVLP LDA .X+ 
A STA . U+ 
A LEAY -l.Y 
10AC BNE OVLP 

* INITIALIZE VECTORS AT *600 
A LDU #*600 

A LDX #VECINI 

A LDB #ENDVEC-VECINI 

A JSR XFRXU MOVE IT TO *600 

» FROM THIS POINT ON, VECTORS AT *600 MAY BE USED 
A LDS #STACK 
A LDX >IRQ+1 VECTOR TO DISK ROM TIME ROUTINE 
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03290 
03300 
03310 
03320 
03330 
03340 
03350 
03360 
03370 
03380 
03390 
03400 
03410 
03420 
03430 
03440 
03450 
03460 
03470 
03480 
03490 
03500 
03510 
03520 
03530 
03540 
03550 
03560 
03570 
03580 
03590 
03600 
03610 
03620 
03630 
03640 
03650 
03660 
03670 
03680 
03690 
03700 
03710 
03720 
03730 
03740 
03750 
03760 
03770 
03780 
03790 
03800 
03810 
03820 
03830 
03840 
03850 
03860 



01736A 

01737A 

0173BA 

01 739 A 

01740A 

01741A 

01742 

01743A 

01744A 

01 745 A 

01746A 

01747A 

01748A 

01749A 

01750A 

01751A 

01752A 

01753A 

01754A 

01755A 

01756A 

01757A 

01758 

01759A 

01760A 

01761A 

01762A 

01763A 

01764A 

01 765 A 

01766A 

01767A 

01768A 

01769A 

01770A 

01771A 

01772A 

01773A 

01774A 

01775A 

01776A 

01 777 A 

01778A 

01779A 

01780A 

01781A 

01782A 

01783A 

01784A 

01785A 

01786 

01787A 

017S8A 

01789A 

01790A 

01791A 

01792A 

01793A 



10C6 30 

10C8 BF 

10CB CE 
10CE 

10D4 FC 

10D7 FD 



10DA 
10DD 
10DF 
10E0 
10E2 
10E4 
10E6 
10E9 
10EC 
10EE 
10F1 
10F4 
10F8 
10FB 
1101 

1104 
1106 
1108 
110A 
110C 
110E 
1110 
1112 
1114 
1116 
1118 
111A 
111C 
111E 
1120 
1122 
1124 
1126 
1127 
1129 
112B 
112D 
112F 
1131 
1133 
1135 
1137 

1139 
1144 
1140 
1159 
115D 
115F 
1160 



8E 

A6 

43 

A7 

Al 

27 

BE 

BF 

86 

B7 

CE 

10CE 

BD 

7E 



05 
01 0D 

0F55 

A000 
061 C 

7FFF 
84 

84 

84 

03 

3FFF 

08DC 

04 

08DE 

0635 

0400 

0EDF 

0EA4 

0989 

0A52 

0AE2 

0BE8 

0C40 

0F68 

0FB2 

0FD2 

0F66 

0FB0 

0FBF 

101D 

0F20 

0EE6 

0000 

0FF6 

0000 

05 

00AE 

10A2 

0000 

0633 

0633 

0633 

0633 

0633 

3939 

44 

00 

00 

00 

06 C8 

00 

06C8 



A 
A 
A 

A 
A 

A 
A 

A 
A 
10E9 
A 
A 
A 
A 
A 
A 
A 



LEAX 

STX 

LDU 

DOS 

LDD 

STD 

* DETERMINE 

LDX 

LDA 

COMA 

STA 

CMPA 

BEG! 

LDX 

0VLP1 STX 
LDA 
STA 
LDU 
LDS 
JSR 
DOS 
JMP 

* 

VECINI FOB 
FDB 
FDB 
FDB 
FDB 
FDB 
FDB 
FDB 
FDB 
FDB 
FDB 
FDB 
FDB 
FDB 
FDB 
FDB 
FDB 
FCB 
FDB 
FDB 
FDB 
FDB 
FDB 
FDB 
FDB 
FDB 
FDB 

* INIT COPY 

FCC 
FCB 
FCB 
FCB 
FDB 
FCB 
FDB 



5.X 
>IRQ+1 
#STMX 
TIME, ON 
>P0LCAT 
>KEYIN 
MEMORY SIZE 

#*7FFF END OF 32K 
,X 



BYPASS CHECK FOR WHICH INTERUPT 
STORE REVISED ENTRY POINT 



ADDR OF ROM KBD SCAN ROUTINE 
SAVE IN KEYIN VECTOR 



IF 32K MACHINE 
FOR 16K 



MAX NUMBER OF DRIVES 



, X 

<X 

0VLP1 

#*3FFF 

>MAXMEM 

#4 

DRIVES 

#DOSDCB 

#STACK 

D0S3 

OPEN, INPUT READ ONLY 

DOS 



DOPEN 
DCLOSE 
DREAD 
DWRITE 
DRELSE 
SYSOLY 
DGO 

SYSLOD 
USROLY 
DUSRGO 
USRLOD 
DERROR 
DTMEON 
DPRNT 


OBASIC 

5 

*AE 

OVRLAY 


RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
*3939 
OF DOSDCB 
/DOS 
0,0,0,0, 
0,0,0,0, 
0,*FF,0, 
SYSBUF 

SYSBUF 



POINTER TO OPEN FUNCTION 



RELEASE I/O BUFFER 

CALL SYSTEM OVERLAY 

JUMP BETWEEN SYSTEM OVERLAYS 

LOAD A SYSTEM OVERLAY 

CALL USER OVERLAY 

JUMP BETWEEN USER OVERLAYS 

LOAD A USER OVERLAY 

USER FATAL ERROR EXIT 

TIME ROUTINE ON/OFF 

8 BIT PRINTER DRIVER 

SLOT FOR KEYIN 

RETURN TO BASIC 

INITIAL CLOCK VALUE 

INITIAL RETRY COUNT 

PRINTER TIME CONSTANT 

LOAD ADDRESS FOR NEXT OVERLAY 

BASE ADDR OF USER PGM + 1 

H00K1 

H00K2 

H00K3 

H00K4 

HOOKS 

RETURN CODE FOR HOOKS 

BIN/ 
0,0,0,0,0 
0,0,0,0,0,0,0,0 
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.SA 


:0 




03870 


01 794 A 


1162 




00 


A 


03880 


01795 










03890 


01796A 


116A 




44 


A 


03900 


01 797 A 


1175 




00 


A 


03910 


01798A 


117E 




00 


A 


03920 


01799A 


118A 




00 


A 


03930 


01800A 


USE 




06 C8 


A 


03940 


01801A 


1190 




00 


A 


03950 


01802A 


1191 




0000 


A 


03960 


01803A 


1193 




00 


A 


03970 


01804 










03980 


01 805 A 


119B 




20 


A 


03990 


01B06A 


UA6 




00 


A 


04000 


01B07A 


11AF 




00 


A 


04010 


01 808 A 


11BB 




00 


A 


04020 


01 809 A 


11BF 




06 C8 


A 


04030 


01810A 


11C1 




00 


A 


04040 


01811A 


11C2 




0000 


A 


04050 


01812A 


11C4 




00 


A 


04060 


01813 










04070 


01814A 


11CC 




00 


A 


04080 


01815 










00010 


01816 










00020 


01817 










00030 


01818 










00040 


01819 










00050 


01820A 


11 CD 




0033 


A 


00060 


01821 










00070 


01 822 A 


11CF 


CC 


0001 


A 


00080 


01823A 


11D2 


108E 


0001 


A 


00090 


01824A 


11D6 


CE 


0000 


A 


00100 


01825A 


11D9 


BD 


103C 


A 


00110 


01826A 


11DC 


8E 


0697 


A 


00120 


01827A 


11DF 


C6 


08 


A 


00130 


01828A 


11E1 


A6 


C4 


A 


00140 


01829A 


11E3 


81 


60 


A 


00150 


01830A 


11E5 


27 


13 


UFA 


00160 


01831A 


11E7 


A6 


C0 


A 


00170 


01832A 


11E9 


81 


60 


A 


00180 


01833A 


11EB 


25 


02 


11EF 


00190 


01834A 


11ED 


88 


40 


A 


00200 


01B35A 


UEF 


A7 


80 


A 


00210 


01836A 


11F1 


5A 






00220 


01837A 


11F2 


26 


F3 


11E7 


00230 


01838A 


11F4 








00240 


01839A 


UFA 








00250 


01840 










00260 


01841 










00270 


01842 










00280 


01843 










00290 


01 844 A 


1200 




0022 


A 


00300 


01S45A 


1202 


CC 


0200 


A 


00310 


01 846 A 


1205 


108E 


0225 


A 


00320 


01B47A 


1209 


CE 


0000 


A 


00330 


01 848 A 


120C 


BD 


103C 


A 


00340 


01849 










00350 


01850A 


120F 


8E 


0697 


A 


00360 


01851A 


1212 


34 


50 


A 



DOS 



PAG INS & OVERLAYS 



FCB 



,0,0,0,0,0,0,0 



* I NIT COPY OF MSGDCB 

FCC /DOS BAS/ 

FCB 0,0,0,0,0,0,0,0,0 

FCB 0,0,0, 0,0, 0,0,0, 0,0, 0,0 

FCB 0,$FF,0,0 

FDB SYSBUF 

FCB 

FDB (SET WHEN USED) 

FCB 0,0,0,0,0,0,0,0 

* INIT COPY OF USER PGM DCB 



FCC 
FCB 
FCB 
FCB 
FDB 
FCB 
FDB 
FCB 

* 

ENDVEC FCB 



/ BIN/ 

0,0,0,0,0,0,0,0,0 

0,0,0,0,0,0,0,0,0,0,0,0 

0,$FF,0,0 

SYSBUF 



00 

0,0,0,0,0,0,0,0 







END OF PRESET DATA 



* INITIAL START UP - CHECK FOR AUTO EXECUTE 

* 

Bl FDB B2-B1 SIZE OF OVERLAY 

* CHECK FOR AUTO PROGRAM EXECUTION 



STRT1 



STRT2 



MENU0 



LDD 

LDY 

LDU 

JSR 

LDX 

LDB 

LDA 

CMPA 

BEQ 

LDA 

CMPA 

BCS 

EORA 

STA 

DECB 

BNE 

DOS 

DOS 



#$1 

#$1 

#$0 

DOMAP 

#USRDCB 

#8 

,U 

#$60 

MENU0 

,U+ 

#$60 

STRT2 

#$40 

,X+ 

STRT1 
GO, EXEC 
60, MENU 



CLR SCREEN 8c IF AUTO EXISTS, DISPLAY IT 

NAME LENGTH 

GET 1ST CHR FROM SCREEN 

IS IT A BLANK? 

IF YES, NO AUTO FUNCTION 



GO LOAD & EXECUTE PROGRAM 

GO DISPLAY MENU & RE-INITIALIZE 



* MAIN MENU SELECTION 2 - EXECUTE A PROGRAM 

♦ *»*******♦*******»*****»*»»*********♦*»**»*»»*»»»»**»* 



b; 



FDB 
LDD 
LDY 
LDU 
JSR 
NOTE U -> 
LDX 
PSHS 



B3-B2 

#512 

#549 

#0 

DOMAP 



SIZE OF OVERLAY 
STARTING LINE NUMBER 
ENDING NUMBER 



DISPLAY SCREEN FORMAT & GET ADDR OF INPUT FIELD 
FIRST INPUT FIELD ON SCREEN 
#USRDCB POINT AT DCB 
X,U ADDR OF VID AREA & DEST AREA 
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00370 


01852A 


1214 








00380 


01853A 


121A 


35 


50 


A 


00390 


01854A 


121C 








00400 


01855 










00410 


01856 










00420 


01857 










00430 


01858 










00440 


01B59A 


1222 




0030 


A 


00450 


01860A 


1224 


FC 


0BDC 


A 


00460 


01861A 


1227 


83 


00B6 


A 


00470 


01 862 A 


122 A 


FD 


08DC 


A 


00480 


01863A 


122D 


10BE 


0625 


A 


00490 


01 864 A 


1231 


34 


20 


A 


00S00 


01 865 A 


1233 


FD 


0625 


A 


00510 


01866A 


1236 


CE 


0418 


A 


00520 


01 867 A 


1239 


5F 






00530 


01868A 


123 A 


108E 


0007 


A 


00540 


01869A 


123E 








00550 


01870A 


1244 


32 


64 


A 


00560 


01871A 


1246 


35 


20 


A 


00570 


01B72A 


124B 


10BF 


0625 


A 


00580 


01873A 


124C 








00590 


01874 










00600 


01875 










00610 


01876 










00620 


01877 










00630 


01878A 


1252 




0092 


A 


00640 


01B79A 


1254 


CC 


0046 


A 


00650 


01880A 


1257 


108E 


0063 


A 


00660 


01881A 


125B 


CE 


0000 


A 


00670 


01882A 


125E 


BD 


103C 


A 


00680 


01883A 


1261 


4F 






00690 


01 884 A 


1262 


34 


02 


A 


00700 


01885A 


1264 


CE 


0400 


A 


00710 


01886A 


1267 


8D 


6C 


12D5 


00720 


01887 










00730 


01 888 A 


1269 


1183 


05 FF 


A 


00740 


01B89A 


126D 


24 


3D 


12AC 


00750 


01 890 A 


126F 


34 


40 


A 


00760 


01891A 


1271 


BE 


C006 


A 


00770 


01 892 A 


1274 


86 


02 


A 


00780 


01B93A 


1276 


E6 


62 


A 


00790 


01894A 


1278 


ED 


81 


A 


00800 


01895A 


127A 


CC 


1102 


A 


00810 


01 896 A 


127D 


ED 


81 


A 


00820 


01 897 A 


127F 


CC 


06 CB 


A 


00830 


01898A 


1282 


ED 


81 


A 


00840 


01 899 A 


1284 


86 


02 


A 


00850 


01 900 A 


1286 


B7 


0622 


A 


00860 


01901A 


1289 


BD 


0D1D 


A 


00870 


01902A 


12BC 


86 


05 


A 


00880 


01903A 


128E 


B7 


0622 


A 


00890 


01 904 A 


1291 


35 


40 


A 


00900 


01905A 


1293 


108E 


06 C8 


A 


00910 


01906A 


1297 


C6 


44 


A 


00920 


01 907 A 


1299 


A6 


84 


A 


00930 


01908A 


129B 


27 


IB 


12B8 


00940 


01 909 A 


129D 


86 


58 


A 



DOS 


DO>FIELDI INPUT A F 


PULS 


X)U 


DOS 


GO. EXEC GO EXECUTE 



FIELD 



IT 



* MAIN MENU SELECTION 3 - TURN ON CLOCK DISPLAY 



B3 



FDB B4-B3 SIZE OF OVERLAY 

LDD MAXMEM 

SUBD #B14-B13+5 ALLOW ROOM FOR CLOCK ROUTINE 

STD MAXMEM 

LDY OLYLOC 

PSHS Y 

STD OLYLOC 

LDU #$400+32-8 DISPLAY AT TOP RIGHT CORNER 

CLRB 

LDY #7 

DOS DO.REALTM TURN ON DISPLAY 

LEAS 4iS NORMALIZE STACK 

PULS Y 

STY OLYLOC 

DOS GO i MENU 
* 

#****#*#***♦******#***#**#*#»######****#*#*»##*♦ 

* MAIN MENU SELECTION 4 - DISPLAY FREE SPACE MAP 
*#♦*»♦♦♦#*##**#»****■*##**#*#*#**#**#**#*****#*** 
B4 



FRE1 



FRE3 



FDB 


B5-B4 


SIZE 


LDD 


#70 


START OF SCREEN FORMAT 


LDY 


#99 


END OF FORMAT 


LDU 


#0 




JSR 


DOMAP 


DISPLAY FORMAT 


CLRA 






PSHS 


A 


(DRIVE COUNTER) 


LDU 


#$400 


VID BUFFER 


BSR 


FRES1 


FIND STARTING DISPLAY POSI 


ONCE 


PER DRIVE 




CMPU 


#$5FF 


MORE DISPLAY ROOM? 


BCC 


FREX 


IF NO 


PSHS 


U 


SAVE NEXT DISPLAY ADDRESS 


LDX 


>*C006 


POINT AT PARAMETERS 


LDA 


#2 


(READ) 


LDB 


2.S 


(DRIVE) 


STD 


,X++ 




LDD 


#$1102 


(TRK 17, SEC 2) 


STD 


,X++ 




LDD 


#SYSBUF 




STD 


>X++ 




LDA 


#2 


(ONLY 2 RETRYS) 


STA 


>RETRYS 




JSR 


DOIO 




LDA 


#5 


(RESTORE TO 5) 


STA 


>RETRYS 




PULS 


U 


(DISPLAY LOO 


LDY 


#SYSBUF 




LDB 


#68 


LOOP COUNT 


LDA 


<X 


RESULT 


BEQ 


FRE5 


IF OK 


LDA 


#$58 


(X) 
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00950 


01910A 


129F 


8D 


32 


12D3 




BSR 


FRESET 




00960 


01911A 


12A1 


5A 








DECB 






00970 


01912A 


12A2 


26 


F9 


129D 




BNE 


FRE3 




00980 


01913A 


12A4 


6C 


E4 


A 


FRE4 


INC 


.S 


DRIVE COUNT 


00990 


01914A 


12A6 


A6 


E4 


A 




LDA 


<S 




01000 


01915A 


12A8 


81 


04 


A 




CMPA 


#4 


MORE DRIVES TO GO? 


01010 


01916A 


12AA 


25 


BD 


1269 




BCS 


FRE1 


IF YES 


01020 


01917A 


12AC 


BD 


1035 


A 


FREX 


JSR 


DERR 


WAIT FOR A KEYSTROKE 


01030 


01918A 


12AF 


35 


02 


A 




PULS 


A 




01040 


01919A 


12B1 










DOS 


GO. MENU 




01050 


01920A 


12B7 


39 








RTS 






01060 


01921 










* DISPLAY FOR THIS DRIVE 


01070 


01 922 A 


12B8 


A6 


A0 


A 


FRE5 


LDA 


,Y+ 




01080 


01923A 


12BA 


2B 


04 


12C0 




BMI 


FRE6 


IF PART OR ALL AVAILABLE 


01090 


01 924 A 


12BC 


86 


58 


A 




LDA 


#*58 


(X) 


01100 


01925A 


12BE 


20 


0C 


12CC 




BRA 


FRE8 




01110 


01926A 


12C0 


81 


FF 


A 


FRE6 


CMPA 


#*FF 


ALL AVAILABLE? 


01120 


01 927 A 


12C2 


26 


04 


12C8 




BNE 


FRE7 


IF PART USED 


01130 


01928A 


12C4 


86 


6E 


A 




LDA 


#*6E 


(PERIOD) 


01140 


01929A 


12C6 


20 


04 


12CC 




BRA 


FRE8 




01150 


01930A 


12C8 


84 


0F 


A 


FRE7 


ANDA 


#*F 




01160 


01931A 


12CA 


8A 


70 


A 




ORA 


#$70 




01170 


01932A 


12CC 


8D 


05 


12D3 


FRES 


BSR 


FRESET 




01180 


01933A 


12CE 


5A 








DECB 






01190 


01934A 


12CF 


26 


E7 


12B8 




BNE 


FRES 




01200 


01935A 


12D1 


20 


Dl 


12A4 




BRA 


FRE4 


GO BACK FOR NEXT DRIVE 


01210 


01936 










* 








01220 


01937 










* STORE CHR 


ON SCREEN 


& FIND NEXT DISPLAY POSN 


01230 


01938A 


12D3 


A7 


5F 


A 


FRESET 


STA 


-1,U 




01240 


01939A 


12D5 


A6 


C0 


A 


FRES1 


LDA 


.U+ 




01250 


01 940 A 


12D7 


81 


6E 


A 




CMPA 


#*6E 


PERIOD? 


01260 


01941A 


12D9 


27 


08 


12E3 




BEG 


FRESX 




01270 


01942A 


12DB 


1183 


0600 


A 




CMPU 


#*600 


END OF SCREEN? 


01280 


01943A 


12DF 


26 


F4 


12D5 




BNE 


FRES1 


IF NO 


01290 


01944A 


12E1 


33 


5F 


A 




LEAU 


-1>U 




01300 


01945A 


12E3 


39 






FRESX 


RTS 






01310 


01946 










# 








01320 


01947 










*****♦**»**»*»»**»*****»»»*»****»**♦ 


01330 


01948 










* MAIN 


MENU 


SELECTION 


5 - COPY FILES 


01340 


01949 










*##**#♦*»************#************** 


01350 


01950A 


12E4 




00E9 


A 


B5 


FDB 


B6-B5 


SIZE OF OVERLAY 


01360 


01951A 


12E6 


34 


10 


A 




PSHS 


X 




01370 


01952A 


12E8 


20 


62 


134C 




BRA 


B5A 




01380 


01953A 


12EA 




0031 


A 


B5DCB1 


RMB 


DCBSZ 




01390 


01954A 


131B 




0031 


A 


B5DCB2 


RMB 


DCBSZ 




01400 


01955A 


134C 


CC 


0226 


A 


B5A 


LDD 


#550 


START OF FORMAT 


01410 


0195 6A 


134F 


108E 


0257 


A 




LDY 


#599 


END OF FORMAT 


01420 


01957A 


1353 


CE 


0000 


A 




LDU 


#0 


CLEAR SCREEN FIRST 


01430 


01958A 


1356 


BD 


103C 


A 




JSR 


DOMAP 


DISPLAY SCREEN 


01440 


01959A 


1359 


C6 


07 


A 




LDB 


#7 




01450 


01960A 


135B 










DOS 


DO.INPTS 


01460 


01961A 


1361 


CI 


03 


A 




CMPB 


#BREAK 




01470 


01962A 


1363 


27 


5F 


13C4 




BEQ 


B5X 




01480 


01963 










♦ 








01490 


01964 










* ENTER PUSHED SET UP 


DCBS 


01500 


01 965 A 


1365 


BE 


0400 


A 


B5J 


LDX 


#*400 




01510 


01966A 


1368 


EE 


E4 


A 




LDU 


iS 


BASE ADDR 


01520 


01967A 


136 A 


33 


46 


A 




LEAU 


B5DCB1-B5.U POINT AT SOURCE DCB 
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01530 
01540 
01550 
01560 
01570 
01580 
01590 
01600 
01610 
01620 
01630 
01640 
01650 
01660 
01670 
01680 
01690 
01700 
01710 
01720 
01730 
01740 
01750 
01760 
01770 
01780 
01790 
01800 
01810 
01820 
01830 
01840 
01850 
01860 
01870 
01880 
01890 
01900 
01910 
01920 
01930 
01 940 
01950 
01960 
01970 
01980 
01990 
02000 
02010 
02020 
02030 
02040 
02050 
02060 
02070 
02080 
02090 
02100 



0196BA 

01 969 A 

01970A 

01971A 

01972 

01973A 

01974A 

01975A 

01976A 

01 977 A 

01978A 

01979A 

01 980 A 

01981A 

01 982 A 

01983A 

01 984 A 

01985A 

01 986 A 

01987A 

01988A 

01 989 A 

01990A 

01991A 

01 992 A 

01 993 A 

01994A 

01995A 

01996A 

01 997 A 

01998 

01 999 A 

02000A 

02001 A 

02002A 

02003A 

02004A 

02005A 

02006A 

02007A 

02008A 

02009A 

020 10A 

0201 1A 

02012 

020 13A 

02014A 

0201 5 A 

02016 

02017 

02018 

02019 

02020A 

02021 A 

02022A 

02023A 

02024A 

02025A 



136C 8D 
136E 33 
1371 8D 
1373 20 

1375 8D 
1377 C6 
1379 31 
137B 8D 
137D 8D 
137F 31 
1381 C6 
1383 8D 
1385 BD 
1387 A6 
1389 80 
138B A7 
138E 39 
138F A6 
1391 81 
1393 26 

1395 39 

1396 A6 
1398 81 
139A 25 
139C 80 
139E A7 
13A0 5 A 
13A1 26 
13 A3 39 

13A4 8D 
13A6 E6 
13AB CI 
13AA 27 
13AC CI 
13AE 26 
13B0 AE 
13B2 33 
13B4 31 
13B7 
13BD 4D 
13BE 27 
13C0 AD 

13C4 35 
13C6 
13CC 39 



13CD 
13CF 30 
13D3 34 
13D5 20 
13D7 
13D9 



07 1375 
C8 31 A 
02 1375 
2F 13A4 



18 
08 
C4 
19 
10 
48 
03 
11 
08 
84 
70 
C8 



138F 

A 

A 

1396 

138F 

A 

A 

1396 

138F 

A 

A 

A 



80 A 
5B A 
FA 138F 



80 
60 
02 
40 
A0 



A 
A 
139E 
A 
A 

1396 



BSR 
LEAU 
BSR 
BRA 

* SETUP A DCB 

B5K BSR 
LDB 
LEAY 
BSR 
BSR 
LEAY 
LDB 
BSR 
BSR 
LDA 
SUBA 
STA 
RTS 

B5TAB LDA 
CMPA 
BNE 
RTS 

B5MOV LDA 
CMPA 
BCS 
SUBA 

B5M0V1 STA 
DECB 
BNE 
RTS 



E9 
84 
59 
04 
4E 
14 
E4 
06 
88 37 



138F 
A 
A 

13B0 
A 

13C4 
A 
A 
A 



B5L 



B5M 



04 13C4 
9F 0616 A 



10 



BSR 

LDB 

CMPB 

BEG 

CMPB 

BNE 

LDX 

LEAU 

LEAY 

DOS 

TSTA 

BEG! 

JSR 

PULS 

DOS 

RTS 



B5K 
DCBSZ. 
B5K 
B5L 

B5TAB 

#8 

.U 

B5MOV 

B5TAB 

DCBFEX.U 

#3 

B5MOV 

B5TAB 

.X 

#*70 

DCBDRViU 

»X + 

#*5B 

B5TAB 

.X + 

tt*60 

B5M0V1 

#*40 

.Y+ 

B5MOV 



SET UP SOURCE DCB 
POINT AT DEST DCB 



MOVE EXTENT I ON 



(ZERO) 



TO Y/N 



N 



B5TAB 

>X 

#*59 

B5M 

#*4E 

B5X 

> S BASE 

B5DCB1-B5.X 

B5DCB2-B5.X 

DO. COPY 

B5X 
[ERROR 3 



GO , MENU 



*»»♦**♦**********#************«** 
* DISPLAY SELECTED DIRECTORY LIST 



00DE A 
89 000A A 
10 A 
2D 1404 
00 A 
20 A 



B6 FDB 
LEAX 
PSHS 
BRA 

B6ARG FCB 
FCC 



B7-B6 

B6ARG-B6!X 

X 

B6A 

0,0 

/ 



■▼■ 
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02110 
02120 
02130 
02140 
02150 
02160 
02170 
02180 
02190 
02200 
02210 
02220 
02230 
02240 
02250 
02260 
02270 
02280 
02290 
02300 
02310 
02320 
02330 
02340 
02350 
02360 
02370 
02380 
02390 
02400 
02410 
02420 
02430 
02440 
02450 
02460 
02470 
02480 
02490 
02500 
02510 
02520 
02530 
02540 
02550 
02560 
02570 
02580 
02590 
02600 
02610 
02620 
02630 
02640 
02650 
02660 
02670 
02680 



02026A 

02027A 

02028A 

02029A 

02030A 

02031 

02032A 

02033A 

02034 

02035A 

02036A 

02037A 

02038A 

02039A 

02040A 

02041 A 

02042A 

02043A 

02044A 

02045A 

02046A 

02047A 

02048A 

02049A 

02050 

02051 A 

0205 2 A 

02053A 

02054A 

0205 5 A 

0205 6A 

02057A 

02058A 

02059A 

02060A 

02061 A 

02062A 

02063A 

02064A 

02065A 

02066A 

02067A 

02068A 

02069A 

02070A 

02071 

02072A 

02073A 

02074A 

02075A 

02076A 

02077A 

02078A 

02079A 

02080 

02081 A 

02082A 

02083A 



13E4 

1404 CC 

1407 108E 

140B CE 

140E BD 

1411 C6 
1413 

1419 EE 
141B 33 
141D 8E 

1420 BD 
1422 
1424 
1426 BD 
1428 C6 
142A 



C6 
8D 



8D 
142C 8D 
142E A6 
1430 84 
1432 EE 
1434 A7 
1436 6F 



143B A6 

143A 81 

143C 27 

143E 91 
1440 
1442 

1445 25 

1447 BD 

144A 35 
144C 

1452 39 

1453 EE 
1455 34 
1457 
145D 35 
145F A6 
1461 2B 
1463 33 
1465 30 
1467 C6 



27 
8C 



1469 A6 

146B Bl 

146D 26 

146F A6 

1471 8A 

1473 A7 

1475 5A 

1476 26 

1478 EE 

147 A 33 

147D A6 



20 

0258 

0289 

0000 

103C 

03 



E4 

42 

0400 

74 

08 

77 

6E 

03 

71 

68. 

80 

03 

E4 

C4 

41 

80 

6E 

15 

6F 

11 

0600 

Fl 

1035 

40 



A 

A 

A 

1496 

A 

149D 

1496 

A 

149D 

1496 

A 

A 

A 

A 

A 

A 
A 

1453 
A 

1453 
A 

1438 
A 
A 



B6A 



/ 

#600 

#649 

#0 

DOMAP 



E4 
50 

50 
41 
E4 
4D 
IF 
08 

84 
6E 
09 
C0 
40 
80 

Fl 

E4 

C8 15 
80 



FCC 
LDD 
LDY 
LDU 
JSR 

* GET USER INPUTS 

LDB #3 

DOS DO.INPTS 

* SETUP ARGUMENTS 

LDU , S 
LEAU 2,U 
LDX #$400 



DISPLAY INPUT SCREEN 



NUMBER OF FIELDS 
GET INPUTS 



POINT TO NAME 



BSR 

LDB 

BSR 

BSR 

LDB 

BSR 

BSR 

LDA 

ANDA 

LDU 

STA 

CLR 



B6TAB 

#8 

B6M0V 

B6TAB 

#3 

B6M0V 

B6TAB 

>X + 

#3 

• S 

,U 

l.U 



» PREPARE LISTING 



A 
A 

A 
A 
1447 
A 
A 
A 

A 
A 
1478 
A 
A 
A 

1469 

A 
A 
A 



B6D1 



B6E 



B6D LDA 
CMPA 
BEQ 
CMPA 
BEQ 
CMPX 
BCS 
JSR 
PULS 
DOS 
RTS 
LDU 
PSHS 
DOS 
PULS 
LDA 
BMI 
LEAU 
LEAX 
LDB 

* DISPLAY NAME 
B6F LDA . X 

CMPA #*6E 

BNE B6G 

LDA , U+ 

ORA #$40 

STA .X+ 

DECB 

BNE B6F 

* DISPLAY EXTENT 
B6G LDU , S 

LEAU 21, U 
LDA , X + 



,X + 

#*6E 

B6E 

*6F 

B6E 

#*600 

B6D 

DERR 

U 

GO , MENU 

,S 

X,U 

DOiSCNDII 

X,U 

l.U 

B6D1 

13, U 

-1,X 

#8 



WAIT FOR A KEYSTROKE 



ENTRY FOUND? 

IF NO 

POINT AT NAME FOUND 

MAX NAME LENGTH 



POINT AT EXT 



PASE 037 OLY 



.SA:0 



DOS 



PAGING & OVERLAYS 



02690 
02700 
02710 
B2720 
02730 
02740 
02750 
02760 
02770 
027B0 
02790 
02S00 
02810 
02820 
02830 
02840 
02850 
02860 
02870 
02880 
02890 
02900 
02910 
02920 
02930 
02940 
02950 
02960 
02970 
02980 
02990 
03000 
03010 
03020 
03030 
03040 
03050 
03060 
03070 
03080 
03090 
03100 
03110 
03120 
03130 
03140 
03150 
03160 
03170 
03180 
03190 
03200 
03210 
03220 
03230 
03240 
03250 
03260 



02084A 

02085A 

02086A 

02087A 

02088A 

02089A 

02090A 

02091 A 

02092A 

02093A 

02094A 

02095A 

02096A 

02097A 

02098A 

02099A 

02100A 

02101A 

02102A 

02 103 A 

02104A 

02 105 A 

02106A 

02 107 A 

02108 

02109 

02110 

02111 

02112 

021 13A 

021 14A 

021 15A 

02116 

021 17A 

021 18A 

021 19A 

02120 

02121A 

02122A 

02 123 A 

02124 

02125 

02126 

02127 

02128 

02129 

02130 

02131 

02132 

02133 

02134 

02135A 

02136 

02 137 A 

02138A 

02139A 

02140 

02141A 



6 



5A 
26 



147F 81 
1481 26 
1483 C6 

1485 A6 
1487 81 
1489 

1486 A6 
148D 8A 
148F A7 
1491 
1492 
1494 20 
1496 A6 
149B 81 
149 A 26 
149C 39 
149D A6 
149F 81 
14A1 25 
14A3 80 
14A5 A7 
14A7 5 A 
14A8 26 
14AA 39 



14AB 
14AD 
14B3 39 

14B4 
14B6 
14BC 39 

14BD 
14BF 
14C5 39 



14C6 

14C8 20 

14CA 

14CB 



6F 

B5 
03 
84 
6E 
AD 
C0 
40 
80 

Fl 
A2 
80 
5B 
FA 

80 
60 
02 
40 
C0 



A 
1438 
A 
A 
A 
1438 
A 
A 
A 

1485 

1438 

A 

A 

1496 

A 
A 
14A5 
A 
A 

149D 



B6H 



0009 



0009 



0009 



00CB 

14C6 

03 

00 

0000 



A 
A 
14CD 
A 
A 



CMPA 

BNE 

LDB 

LDA 

CMPA 

BNE 

LDA 

ORA 

STA 

DECB 

BNE 

BRA 

B6TAB LDA 
CMPA 
BNE 
RTS 

B6M0V LDA 
CMPA 
BCS 
SUBA 

B6M0V1 STA 
DECB 
BNE 
RTS 



#*6F 

B6D 

#3 

.X 

#«6E 

B6D 

iU+ 

#$40 

iX+ 

B6H 
B6D 
,X + 
SS5B 
B6TAB 

,X + 

#*60 

B6M0V1 

#*40 

,U+ 

B6MOV 



GO GET NEXT ONE 



*********************************** 

* FILL FOR ROUTINES NOT YET WRITTEN 
*********************************** 

* (OTHER MAIN MENU FUNCTIONS) 



A B7 



A B8 



A B9 



FDB 


B8-B7 


DOS 


GO, MENU 


RTS 




FDB 


B9-B8 


DOS 


GO, MENU 


RTS 




FDB 


B10-B9 


DOS 


GO. MENU 


RTS 





SIZE OF OVERLAY 



SIZE OF OVERLAY 



SIZE OF OVERLAY 



************************************************************************ 

* GET SCREEN LINES OUT OF BASIC FILE & DISPLAY 
* 

* GIVEN IN THE STACK(PUSHED BEFORE CALLING: 

* (,S = RET ADDR TO UNDO) 

» <2,S = RET ADDR TO CALLER) 

* 4,S STARTING LINE NUMBER DESIRED 

* 6,S ENDING LINE NUMBER DESIRED 

* 8.S INITIAL DISPLAY LOC 
************************************************************************ 



B10 FDB 
MAPBSE EQU 
BRA 
MAPOSW FCB 
MAPLN FDB 



14 CD CE 0666 



A MAPI 



LDU 



B11-B10 OVERLAY SIZE 

B10 (ONLY THIS LINE & ONE ABOVE MUST CHG TO USE DIF OVRLAY NBR) 

MAPI BYPASS LOCALS 

FILE OPEN SW - WHEN OVERLAY 1ST LOADED, 1 FROM THEN ON 

LAST LINE NUMBER READ 

#MSGDCB POINT AT DCB 
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03270 

03280 

03290 

03300 

03310 

03320 

03330 

03340 

03350 

03360 

03370 

03380 

03390 

03400 

03410 

03420 

03430 

03440 

03450 

03460 

03470 

03480 

03490 

03500 

03510 

03520 

03530 

03540 

03550 

03560 

03570 

03580 

03590 

03600 

03610 

03620 

03630 

03640 

03650 

03660 

03670 

03680 

03690 

03700 

03710 

03720 

03730 

03740 

03750 

03760 

03770 

03780 

03790 

03800 

03810 

03820 

03830 

03840 



02142A 

021 43A 

02 144 A 

02145A 

02146 

02147A 

02148A 

02 149 A 

02150 

02151A 

02152A 

02153A 

02154A 

02155A 

02156 

02157 

02158A 

02159A 

02 160 A 

02161A 

02162A 

02163 

02164A 

02 165 A 

02166 

02 167 A 

02168A 

02169A 

02170A 

02171A 

021 72A 

02173A 

02174 

02175 

02176 

02177A 

02178A 

02179A 

02 180 A 

021B1A 

02182A 

02 183 A 

02 184 A 

02185A 

02 186 A 

02 187 A 

02188A 

02 189 A 

02190A 

02191A 

02 192 A 

02193A 

02 194 A 

02195A 

02196A 

02197 

02 198 A 

02199A 



14D0 
14D4 
14D8 
14DA 

14DC 
14E2 
14E4 

14E6 
14E8 
14EA 
14ED 
14EF 



14F2 
14F5 
14F8 
14FA 
14FD 

14FF 
1501 

1503 
1506 
1508 
150B 
150F 
1511 
1513 



.SA:0 DOS - PAGING & OVERLAYS 

0625 A LDY >OLYLOC (POINTS BEYOND THIS OVERLAY (WHERE NEXT OVRLAY WOULD GO) 
C8 27 A STY DCBLRB.U USE AS LOGICAL RECORD BUFFER 
04 A TST MAPOSW-MAPBSE. X FILE OPENED? 
16 14F2 BNE MAP3 IF YES 



10BE 
10AF 
6D 
26 



86 
A7 



ED 
ED 
86 
A7 



01 
04 



05 
C8 
03 
C8 



A 
A 
A 
D A 



>B 



CC 
ED 
EC 
10 A3 
24 

EC 
26 

CE 

EF 

CC 

108E 

ED 

31 

26 



FFFF A 
C8 29 A 
05 A 
64 A 
E7 14E6 



* IF FIRST TIME CALLED! OPEN DISK FILE 
OPEN. INPUT OPEN DISK FILE 
#1 
MAPOSW-MAPBSE. X SAY FILE IS OPEN 

* RESET TO BEGINNING OF FILE 
MAP2 CLRD 

MAPLN-MAPBSE.X RESET LAST LINE READ 

DCBRBA.U 

#3 (START READING AT RBA 00 00 03) 

DCBRBA+2.U 

* CHECK TO SEE IF FILE NEEDS TO BE RESET 

* (REQUEST MUST BE > LAST LINE READ) 
MAP3 LDD #*FFFF 

STD DCBPRN.U TO FORCE RE-READ INTO BUFFER 
LDD MAPLN-MAPBSE.X LAST LINE READ 
CMPD 4.S 1ST LINE TO BE DISPLAYED 
GO START OVER AT BOF 



DOS 
LDA 
ST A 



STD 
STD 
LDA 
ST A 



BCC 



4.S 
MAP2 



* CHECK DISPLAY LOC OPTION 



68 
12 

0400 

68 

6060 

0100 

CI 

3F 

FA 



A 
1515 

A 
A 
A 
A 
A 
A 
150F 



LDD 8.S 
BNE MAPS 
CLEAR THE SCREEN 



LDU 
STU 
LDD 
LDY 
MAP4 STD 
LEAY 
BNE 



tt*400 

8>S 

#$6060 

#256 

>U++ 

-l.Y 

MAP4 



STARTING DISPLAY LOC 
IF ADDRESS GIVEN 



START DISPLAY AT TOP OF SCREEN 
BLANKS 



READ/DISPLAY LOOP 
READ A LINE 



1515 
1518 
151B 
151E 
1524 
1526 
152A 
152C 
152E 
1530 
1532 
1534 
1537 
153D 
153F 
1541 
1544 
1546 
1549 
154B 

154D 
154F 



CE 
CC 
ED 

26 

10BE 

EC 

27 

EC 

ED 

34 

6F 

35 

26 

10A3 

25 

10 A3 

27 

24 

34 
BE 



0666 
0004 
CB 11 

65 

0625 

A4 

45 

22 

05 

06 

C8 1 

06 
4A 
64 
CF 
66 
02 
26 

30 
0625 



A 
A 
A 

158B 
A 
A 

1573 

A 

A 

A 

2 A 

A 
158B 

A 
1515 

A 
154D 
1573 



MAP5 LDU 
LDD 
STD 
DOS 
BNE 
LDY 
LDD 
BEG 
LDD 
STD 
PSHS 
CLR 
DOS 
PULS 
BNE 
CMPD 
BCS 
CMPD 
BEG 
BCC 
* LINE FOUND 
MAP6 PSHS 
LDX 



#MS6DCB POINT AT DCB 

#4 LENGTH OF LINE NBR & MEM ADDR 
DCBRSZ.U SET TO READ 4 BYTE RECORD 
READ. RBA 

IF I/O ERROR 

(LOGICAL REC BUFFER) 

GET "MEMORY ADDRESS" 

IF AT EOF 

GET LINE NUMBER 
MAPLN-MAPBSE.X SAVE FOR FUTURE REFERENCE 
D 

DCBRSZ+l.U SET FOR VARIABLE LENGTH RECORDS 
READ. RBA READ A STRING 
D 

IF I/O ERROR 

IS AT LEAST AS FAR AS STARTING LINE NUMBER? 

NOT FAR ENOUGH. GO READ ANOTHER 

IS IT BEYOND LAST ONE? 

IF THIS IS THE LAST ONE 

IF AT END OF RANGE 
XFER IT TO SCREEN 
X.Y 
>OLYLOC 



MAPERR 
>OLYLOC 
.Y 

MAP 10 
2.Y 



MAPERR 

4.S 

MAP5 

6.S 

MAP6 

MAP 10 



PAGE 039 OLY 



.SA:0 



DOS 



PAGING & OVERLAYS 



03850 
03860 
03870 
03880 
03890 
03900 
03910 
03920 
03930 
03940 
03950 
03960 
03970 
03980 
03990 
04000 
04010 
04020 
04030 
04040 
04050 
04060 
04070 
04080 
04090 
04100 
04110 
04120 
04130 
04140 
04150 
04160 
04170 
04180 
04190 
04200 
04210 
04220 
04230 
04240 
04250 
04260 
04270 
04280 
04290 
04300 
04310 
04320 
04330 
04340 
04350 
04360 
04370 
04380 
04390 
04400 
04410 
04420 



02200A 

02201 A 

02202 

02203A 

02204A 

02205A 

02206A 

02207A 

02208A 

02209A 

022 10A 

02211 A 

022 12A 

022 13A 

022 14A 

02215A 

02216 

022 17A 

022 18A 

022 19A 

02220A 

02221 A 

02222A 

02223A 

02224A 

02225A 

02226A 

02227A 

02228A 

02229A 

02230 

02231 

02232 

02233 

02234 

02235 

02236 

02237 

02238 

02239A 

02240A 

02241A 

02242A 

02243A 

02244 

02245A 

02246A 

02247A 

02248A 

02249A 

02250A 

02251 A 

02252A 

02253A 

02254A 

02255A 

02256A 

02257A 



1552 30 
1554 10AE 

1557 A6 

1559 Al 
155C 27 
155E 81 

1560 24 
1562 8A 
1564 A7 
1566 20 
1568 AE 
156A 30 
156D AF 
156F 35 
1571 



01 A LEAX 1,X 
6C A LDY 8+4, S 

* MOVE CHARACTER LOOP 



80 

C8 13 A 

0A 1568 



1573 
1576 
157A 
157C 
157E 
1580 
1582 
1584 
1587 
1589 
158A 
158B 
15BD 



20 

CE 

108E 

86 

Al 

27 

31 

26 

CE 

EF 

4F 

39 

86 

39 



158E 

1590 EE 

1592 10AE 

1595 1183 

1599 27 



159B 
159D 
159F 
15A1 
15 A3 
15A5 
15A7 
15A9 
15AB 
15AE 
15B0 
15B2 
15B5 



A6 

81 

27 

81 

27 

A6 

A7 

20 

BD 

IF 

EE 

10AE 

11B3 



A MAP7 



40 

02 

40 

A0 

EF 

6C 

88 20 

6C 

30 

A2 

0400 

0200 

5B 

C0 

07 

3F 

F8 

0400 

68 



A 

1564 

A 

A 

1557 

A 

A 

A 

A 

1515 

A 
A 
A 
A 

1587 
A 

157C 
A 
A 



19 



0140 A 
66 A 
64 A 
0400 A 
10 15AB 



C4 

5B 

0A 

5D 

06 

A0 

C0 

F0 

1035 

89 

66 

64 

0400 



MAPS 



MAP9 



LDA 

CM PA 

BEQ 

CM PA 

BCC 

ORA 

STA 

BRA 

LDX 

LEAX 

STX 

PULS 

BRA 



■ X + 



<SKIP THE "REM" CODE) 
DESTINATION ADDRESS 



GET A CHARACTER 



DCBTRM.U IS IT THE TERMINATOR BYTE? 



MAP9 

#$40 

MAPS 

#$40 

,Y+ 

MAP7 

8+4. S 

32, X 

8+4, S 

X,Y 

MAPS 



IF YES 

IS IT SPL CHR? 

IF NO 



GO GET NEXT LINE 



* FIND START OF INPUT FIELD 



MAP10 LDU 
LDY 
LDA 

MAP11 CMPA 
BEQ 
LEAY 
BNE 
LDU 

MAP12 STU 
CLRA 
RTS 

MAPERR LDA 
RTS 



#$400 

#512 

#$5B 

,U+ 

MAP12 

-1,Y 

MAPU 

#$400 

8,S 



#ERR25 



MAX CHRS TO TEST 

(LEFT BRACKET ON SCREEN) 



IF NO FIELD FOUND 



* INPUT A FIELD FROM THE KEYBOARD (ECHO ON THE SCREEN) 
* 

* GIVEN: (,S = RET TO UNDO) 

* (2,S = RET TO CALLER 

* 4,S = ADDR OF INPUT FIELD IN WS 

* 6,S = ADDR OF INPUT FIELD ON SCREEN 



A 
A 

15AB 
A 

15AB 
A 
A 

159B 
A 
A 
A 
A 
A 



Bll 



FLDI1 



fldi: 



FDB 


B12-B10 


SIZE OF OVERLAY 


LDU 


6,S 




LDY 


4,S 




CMPU 


#$400 


NO FIELD DEFINED? 


BEG! 


FLDI2 


IF NO FIELD MARKERS 


ORIG 


CONTENTS 


TO SCREEN 


LDA 


,U 


LOOK AT DESTINATION POSITION 


CMPA 


#$5B 


LEFT BRACKET? 


BEG 


FLDI2 


IF YES 


CMPA 


#$5D 


RIGHT BRACKET? 


BEQ 


FLDI2 


IF YES 


LDA 


,Y+ 




STA 


,U+ 




BRA 


FLDI1 




JSR 


DERR 


WAIT FOR A KEYSTROKE 


TFR 


A,B 




LDU 


6,S 




LDY 


4,S 




CMPU 


#$400 


NO FIELD MARKERS? 
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04430 02258A 
04440 02259A 
04450 02260A 
04460 02261 A 
04470 02262A 
04480 02263A 
04490 02264A 
04500 02265 
04510 02266A 
04520 02267A 
04530 02268A 
04540 02269A 



15B9 27 
15BB 81 
15BD 25 
15BF 81 
15C1 25 
15C3 81 
15C5 25 



.SA:0 

4A 
20 
2A 
5B 
04 
60 



DOS 



PAGING & OVERLAYS 



04550 02 
04560 02 
04570 02 
04580 02 



270A 
271A 
272A 
?73A 



04590 02274A 
04600 02275A 
04610 02276 A 
04620 02277A 



04630 02 
04640 02 



278A 
279A 
04650 02280A 
04660 02281 A 
04670 02282A 
04680 02283 
04690 02284 
04700 02285A 
04710 02286 A 
04720 02287A 
04730 02288A 
04740 02289A 
04750 02290A 
04760 02291 A 
04770 02292A 
04780 02293A 
04790 02294A 
04800 02295A 
04810 02296A 
04820 02297A 
04830 02298A 
04840 02299A 
04850 02300 
04860 02301 
04870 02302 
04880 02303 
04B90 02304 
04900 02305 
04910 02306 A 
04920 02307A 
04930 02308 
04940 02309A 
04950 023 10A 
04960 02311 A 
04970 023 12A 
04980 023 13A 
04990 02314A 
05000 02315A 



15C7 
15C9 
15CB 
15CD 
15CF 
15D1 
15D3 
15D5 
15D7 
15D9 
15DB 
15DD 
15E0 
15E2 
15E3 
15E5 
15E7 



A6 

81 

27 

Bl 

27 

IF 

A7 

81 

24 

8A 

A7 

10AF 

EF 

5F 

A6 

81 

26 



15E9 81 
15EB 26 
15ED 86 
15EF A7 
15F1 A7 
15F3 A6 
15F5 Bl 
15F7 27 
15F9 31 
15FB 33 
15FD 86 
15FF A7 
1601 A7 
1603 20 
1605 39 



C4 
5B 
1C 
5D 
18 
98 
A0 
40 
02 
40 
C0 
64 
66 

C4 
5D 
C2 



08 
18 
20 
A4 
C4 
5F 
5B 
04 
3F 
5F 
20 
A4 
C4 
D8 



1605 
A 

15E9 
A 

15C7 
A 

15E9 

A 
A 

15E9 
A 

15E9 
A 
A 
A 

15DB 
A 
A 
A 
A 

A 

A 

15AB 



A 

1605 

A 

A 

A 

A 

A 

15FD 

A 

A 

A 

A 

A 

15DD 



* FALL 
FLDI4 



FLDI5 
FLDI5A 



* EXIT 
FLDIX 



FLDIX1 



FLDIXX 



BEQ 

CMPA 

BCS 

CMPA 

BCS 

CMPA 

BCS 

THRU 

LDA 

CMPA 

BES 

CMPA 

BES 

TFR 

STA 

CMPA 

BCC 

ORA 

STA 

STY 

STU 

CLRB 

LDA 

CMPA 

BNE 

WITH 

CMPA 

BNE 

LDA 

STA 

STA 

LDA 

CMPA 

BEQ 

LEAY 

LEAU 

LDA 

STA 

STA 

BRA 

RTS 



FLDIXX 
#*20 
FLDIX 
#$5B 
FLDI4 
#$60 
FLDIX 
WITH LOWER 
.U 

#$5B 
FLDIX 
#$5D 
FLDIX 
B.A 
>Y+ 
#$40 
FLDI5 
#$40 
,U+ 
4.S 
6fS 

iU 

#$5D 

FLDI2 



IF NO FIELD MARKERS. EXIT WITH KEY IN A & B 

WAS IT LOW CONTROL KEY? 

IF YES 

SPL CHR/NUMBERS/UPPER CASE? 

IF YES 

HIGH CONTROL CODES? 

IF YES 

CASE 

IS CURSOR OVER START OF FIELD? 

IF YES 

OVER END OF FIELD? 

IF YES 



SAVE CHR 
SPL CHR? 
IF YES 



IN INPUT AREA 



FIELD OVERFLOW? 



LAST KEY 
#LEFT 
FLDIXX 
#$20 
.Y 
,U 

-l.U 
#$5B 
FLDIX1 
-l.Y 
-1,U 
#$20 
,Y 
,U 
FLDI5A 



PUSHED IN B (ZERO IF FIELD OVERFLOW) 
(LEFT ARROW?) 



IN FIRST POSN NOW? 
IF YES 



1606 


0077 


A 


Bl 


2 


FDB 


1608 34 


10 


A 






PSHS 








* 


STEP 


1 OPEN 


160 A CE 


0697 


A 






LDU 


160D B6 


FF 


A 






LDA 


160F A7 


CS 21 


A 






STA 


1612 










DOS 


1618 27 


10 


162A 






BES 


161A 81 


0D 


A 






CMPA 


161C 27 


0C 


162 A 






BEQ 



*«#*»»**#♦♦*»♦******»***********»****»***** 

* ACTUALLY LOAD AND EXECUTE PROGRAM 

* GIVEN: DCB FOR THE PROGRAM FILE STORED 
» IN USRDCB 
##***♦♦****♦»**♦*****»»******************** 

B13-B12 SIZE OF OVERLAY 

X SAVE MY BASE (LOWEST LOAD ADDRESS ALLOWED) 

THE PROGRAM FILE - DOES IT EXIST? 

#USRDCB 

#$FF 

DCBDRV.U SEARCH ALL DRIVES 

OPEN> INPUT 

EX1 IF OK 

#ERR13 NOT PREV CLOSED IS OK 

EX1 
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DOS 
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05010 
05020 
05030 
05040 
05050 
05060 
05070 
05080 
05090 
05100 
05110 
05120 
05130 
05140 
05150 
05160 
05170 
05180 
05190 
05200 
05210 
05220 
05230 
05240 
05250 
05260 
05270 
05280 
05290 
05300 
05310 
05320 
05330 
05340 
05350 
05360 
05370 
05380 
05390 
00010 
00020 
00030 
00040 
00050 
00060 
00070 
00080 
00090 
00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 



023 16A 

023 17A 

023 18A 

02319 

02320 

02321 A 

02322A 

02323A 

02324A 

02325A 

02326A 

02327A 

02328A 

02329A 

02330A 

02331 A 

02332A 

02333A 

02334A 

02335A 

02336A 

02337 

02338A 

02339A 

02340A 

02341 A 

02342A 

02343A 

02344A 

02345A 

02346A 

02347A 

02348A 

02349A 

02350A 

02351 A 

02352A 

02353A 

02354 

02355 

02356 

02357 

02358 

02359 

02360 

02361 

02362 

02363 

02364 

02365 

02366 

02367 

02368 

02369 

02370 

02371 

02372 

02373A 



161E 
1622 
1624 



162A 
162D 
1630 
1633 
1636 
163C 
163E 
1640 
1642 
1644 
1646 
1648 
164 A 
164D 
164F 
1651 

1653 
1656 
1659 
165C 
165F 
1661 
1664 
1667 
166A 
166D 
166F 
1671 
1673 
1675 
167B 
167A 



AD 
35 



9F 0616 A 
10 A 



EXERR 



JSR 

PULS 

DOS 



C ERROR 1 

X 

GO. MENU 



BE 
AF 
CC 
ED 

26 

6D 

27 

86 

20 

EC 

27 

10A3 

24 

86 



0625 A 

C8 27 A 

000A A 

CB 11 A 



* READ FILE PREFIX DATA (LOAD ADDR, RBA OF 1ST OVERLAY. ETC) 



ED 

EC 

FD 
EC 
ED 
E3 
C3 
FD 
IF 
86 
A7 
86 
A7 
35 
7E 



E0 
84 
04 
IB 
D8 
03 
0C 
E4 
04 
1A 
CB 

C8 27 
C8 27 

0627 

08 

CS 11 

C8 27 

0003 

0625 

02 

FF 

3F 

05 

C8 2D 

10 

1096 



161E 

A 
1646 

A 
161E 

A 
1656 

A 
1653 

A 
161E 

A 
A 



EX2 



LDX 

STX 

LDD 

STD 

DOS 

BNE 

TST 

BEG! 

LDA 

BRA 

LDD 

BEG! 

CMPD 

BCC 

LDA 

BRA 



>OLYLOC POINT BEYOND ME 

DCBLRB.U USE AS LOGICAL REC BUFFER 



#10 

DCBRSZ.U 

READ. RBA 

EXERR 

,X 

EX2 

#ERR27 

EXERR 

3.X 

EX3A 

iS 

EX3 

#ERR26 

EXERR 



READ 1ST 10 BYTES OF PROGRAM FILE 



IS 1ST BYTE ZERO? 
IF YES, OK 
WRONG TYPE FILE 

(LOAD ADDRESS) 

IF BASED AT ZERO, ASSUME RELOCATABLE 

HE MUST LOAD ABOVE THIS POINT 

IF HE IS OK 

LOAD ADDR IS TOO LOW 



167D 



00B1 



* LOAD ADDRESS IS HIGH ENOUGH 

EX3 STD DCBLRB.U SET THIS AS LOGICAL RECORD BUFFER 

EX3A LDD DCBLRB.U 

INCD 

A STD >USRBSE 

A LDD 8.X (SHOULD BE RBA OF 1ST OVERLAY) 

A STD DCBRSZ.U THAT IS ALSO HOW BIG ROOT SECTION IS 

A ADDD DCBLRB.U RESULT IS WHERE END OF ROOT WILL BE IN MEMORY 

A ADDD #3 

A STD >OLYLOC SET THIS AS BASE OF FUTURE OVERLAYS 

A TFR D.Y 

A LDA #*FF INVALIDATE WHICH OVERLAY IS IN OVERLAY AREA 

A STA -l.Y 

A LDA #5 

A STA DCBRBA+2.U START READING WITH 6TH BYTE 

A PULS X 

A JMP B12A GO LOAD ROOT & XFER CONTROL TO IT 

* RELOCATABLE REAL-TIME CLOCK ROUTINE 
# 

* DESIGNED TO BE LOADED BY MAINLINE OF USER'S PROGRAM. SAVING ITS 

* LOAD ADDRESS. THEN ACCESSED THRU THE SAVED VECTOR TO PERFORM 

* FUNCTIONS. 
# 

* GIVEN: B=0 - INITIAL CALL, LINK SELF INTO TIME INTERUPT AND PROTECT 

* MYSELF FROM BEING OVERLAYED 

* B=FF - UNLINK AND RELEASE OVERLAY SPACE 

* B=l - GET TIME 

* B=2 - SET TIME 
Y CONTAINS SECC)NDS AND 60THS OF SECONDS 
U CONTAINS HOURS AND MINUTES 

U -> DISPLAY ADDRESS (0=NO DISPLAY DESIRED) 

* Y = 1 FOR HOURS, 2 FOR MINUTES, 4 FOR SECONDS 

* OR ANY COMBINATION (ADDED TOGETHER) 

B13 FDB B14-B13 OVERLAY SIZE 



WITH GET & SET TIME, 
WITH INITIAL CALL, 



■▼■ 
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00200 

00210 

00220 

00230 

00240 

00250 

00260 

00270 

00280 

00290 

00300 

00310 

00320 

00330 

00340 

00350 

00360 

00370 

00380 

00390 

00400 

00410 

00420 

00430 

00440 

00450 

00460 

00470 

004B0 

00490 

00500 

00510 

00520 

00530 

00540 

00550 

00560 

00570 

00580 

00590 

00600 

00610 

00620 

00630 

00640 

00650 

00660 

00670 

00680 

00690 

00700 

00710 

00720 

00730 

00740 

00750 

00760 

00770 



02374 

02375A 

02376A 

02377A 

02378A 

02379A 

02380A 

02381 A 

02382A 

02383A 

02384A 

02385A 

02386A 

02387A 

02388A 

02389A 

02390A 

02391 A 

02392A 

02393A 

02394A 

02395A 

02396A 

02397 

02398A 

02399A 

02400A 

02401 A 

02402A 

02403A 

02404A 

02405A 

02406A 

02407A 

02408A 

02409 

024 10A 

0241 1A 

024 12A 

024 13A 

024 14A 

02415A 

02416 

024 17A 

024 ISA 

024 19A 

02420A 

02421 A 

02422A 

02423A 

02424A 

02425A 

02426A 

02427A 

02428A 

02429A 

02430A 

02431 A 



167F 
1681 
1682 
1683 
1684 
1685 
1687 
1688 
1689 
168B 
16BD 
168E 
1690 
1691 
1693 
1695 
1698 
1699 
169 A 
169C 
169F 
16A0 



20 



5D 

27 

30 

5D 

2B 

5A 

27 

EF 

10AF 

4F 

39 

EE 

10AE 

4F 

39 



167D 

07 

00 

00 

00 

00 

0000 

00 

16 
IE 



EF 
IF 



16A1 
16A3 
16A5 E7 
16A7 33 
16AB AF 
16AD 
16B3 EC 
16B5 34 
16B7 4F 
16B8 30 
16BA 39 

16BB 33 
16BF 
16C5 35 
16C7 ED 
16C9 4F 
16CA 39 

16CB 7E 
16CE 8E 
16D1 EC 
16D3 5C 
16D4 ED 
16D6 CI 
16D8 25 
16DA 5F 
16DB 8B 
16DD 19 
16DE ED 
16E0 81 
16E2 25 
16E4 4F 
16E5 A7 



A 

1688 

A 



DOS 



CLK 
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HRS 
A MIN 
A SEC 
A CNT 
A TMELOC 
A TMEOPT 

CLK1 



16A1 
A 



16BB 



07 
04 
06 



04 
06 



169 A 

A CLKSET 
A 



A CLKGET 
A 



08 

20 

0A 

89 004E 

44 

62 
06 



CLKGO 



89 004E A CLKSTP 



06 
62 



0000 A CLKTME 

0000 A 
06 A 

06 A 

38 A 

Fl 16CB 

01 A 

06 A 

60 A 

1A 16FE 

06 A 



EGU 

BRA 

FCB 

FCB 

FCB 

FCB 

FDB 

FCB 

TSTB 

BEG 

LEAX 

TSTB 

BMI 

DECB 

BEQ 

STU 

STY 

CLRA 

RTS 

LDU 

LDY 

CLRA 

RTS 

STU 

TFR 

STB 

LEAU 

STX 

DOS 

LDD 

PSHS 

CLRA 

LEAX 

RTS 

LEAU 

DOS 

PULS 

STD 

CLRA 

RTS 

JMP 

LDX 

LDD 

INCB 

STD 

CMPB 

BCS 

CLRB 

ADDA 

DAA 

STD 

CM PA 

BCS 

CLRA 

STA 



(TO ALLOW CHANGING TO DIFFERENT OVERLAY DURING DEVELOPMENT) 

JUMP OVER LOCALS 

HOURS (COUNTS TO 255) 

MINUTES (ALL VALUES SET TO ZERO WHEN LOADED) 

SECONDS 

TIME DISPLAY LOC 
HR.MIN.SEC OPTION 
WHICH OPTION? 



B13 

CLK1 













CLKGO 
-2,X 

CLKSTP 



CLKGET 
HRS-CLK,X 
SEC-CLK, X 



HRS-CLKiX 
SEC-CLK.X 



TMELOC-CLK.X SAVE DISPLAY ADDRESS 

Y,D 

TMEOPT-CLK.X SAVE DISPLAY OPTION 

CLKTME-CLK,X POINT AT INTERVAL ROUTINE 

4,U SET LDX COMMAND TO LOAD CURRENT X VALUE 

TIME, ON PLUG IN THE CLOCK 

2,S RET ADDR TO CALLER 

D PUT IN TOP OF STACK TO BYPASS NORMAL EXIT OF OVERLAY 

2.X TELL USER WHERE TO ENTER ME 
RETURN TO CALLER 

CLKTME-CLK.X POINT AT INTERVAL ROUTINE 

TIME, OFF PULL THE PLUG 

D RET ADDR TO CALLER 

2.S SET TO RET TO HIM AFTER EXITING FROM OVERLAY 



>0 

#0 THIS INSTR MODIFIED BY ABOVE ROUTINE 

SEC-CLK.X LOAD SEC & 60THS 

SEC-CLK. X 

#56 FULL SECOND? 

CLKTME IF NO. EXIT 

#1 

SEC-CLK, X 



#*60 
CLKDSP 



FULL MINUTE? 
IF NO 



SEC-CLK. X 
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00780 
00790 
00800 
00810 
00820 
00830 
00840 
00850 
00860 
00870 
00880 
00890 
00900 
00910 
00920 
00930 
00940 
00950 
00960 
00970 
00980 
00990 
01000 
01010 
01020 
01030 
01040 
01050 
01060 
01070 
01080 
01090 
01100 
01110 
01120 
01130 
01140 
01150 
01160 
01170 
01180 
01190 
01200 
01210 
01220 
01230 
01240 
01250 
01260 
01270 
01280 
01290 
01300 
01310 
01320 
01330 
01340 
01350 



02432A 

02433A 

02434A 

02435A 

02436A 

02437A 

02438A 

02439A 

02440A 

02441 A 

02442A 

02443A 

02444A 

02445 

02446A 

02447A 

02448A 

02449A 

02450 A 

02451 A 

02452A 

0245 3A 

02454A 

02455A 

02456A 

02457A 

0245BA 

02459A 

02460A 

02461A 

02462 

02463A 

02464A 

02465A 

02466A 

02467A 

02468A 

02469A 

02470A 

02471 A 

02472A 

02473A 

02474A 

02475 

02476 

02477 

0247B 

02479A 

02480 

02481 A 

02482A 

02483A 

02484A 

02485A 

024B6A 

02487A 

02488A 

02489A 



16E7 EC 
16E9 CB 
16E8 IE 
16ED 19 
16EE IE 
16F0 E7 
16F2 CI 
16F4 25 
16F6 5F 
16F7 8B 
16F9 19 
16FA ED 
16FC 20 

16FE EE 
1700 27 
1702 E6 

1704 54 

1705 24 
1707 A6 

1709 8D 
170B 54 
170C 24 
170E A6 

1710 BD 

1712 54 

1713 24 
1715 A6 
1717 8D 

1719 20 

171B 34 
171D 44 
171E 44 
171F 44 

1720 44 

1721 8B 
1723 A7 
1725 35 
1727 84 
1729 8B 
172B A7 
172D 39 



172E 

1730 CC 
1733 

1737 CE 

173A BD 
173D 

1741 27 

1743 80 

1745 27 

1747 25 



04 
01 
89 

89 
05 
60 
08 

01 

04 
CD 

08 
C9 
0A 

04 
04 
10 

04 
05 
09 

B6 
06 
02 
B0 

02 



30 
C0 
02 
0F 
30 
CI 



A 
A 
A 

A 

A 
A 

16FE 



A 
16CB 

A 

16CB 

A 

170B 

A 

171B 

1712 

A 

171B 

16CB 

A 

171B 

16CB 



0027 



0064 

108E 00 C7 

0000 



FA 
31 
0B 
F4 



LDD 

ADDS 

EXG 

DAA 

EXG 

STB 

CMPB 

BCS 

CLRB 

ADDA 

DAA 

STD 

BRA 



HRS-CLK. X 
#1 



A.B 
MIN- 



CLK.X 



#*60 
CLKDSP 



#1 



FULL HOUR? 
IF NO 



HRS-CLK, X 
CLKTME 



* DISPLAY RESULTS IF NECESSARY 
CLKDSP LDU TMELOC-CLK.X DISPLAY LOC 

BEG! CLKTME EXIT 

LDB TMEOPT-CLK.X DISPLAY OPTION 

LSRB 

BCC CLK2 IF NO 

LDA HRS-CLK, X 

BSR CLKEDT 
CLK2 LSRB MINUTES DESIRED? 

BCC CLK3 IF NO 

LDA MIN-CLK.X 

BSR CLKEDT 
CLK3 LSRB SECONDS DESIRED? 

BCC CLKTME IF NO 

LDA SEC-CLK.X 

BSR CLKEDT 

BRA CLKTME 

* EDIT THE BCD NUMBER IN A - DISPLAY AT U 
A CLKEDT PSHS A 

LSRA 

LSRA 

LSRA 

LSRA 

A ADDA #*30 

A BTA . U+ 

A PULS A 

A ANDA #*0F 

A ADDA #*30 

A STA , U++ 

RTS 
♦ 

* DOS MAIN MENU DISPLAY 
*»****«#****»♦*###**##*♦*#####*♦♦*#**####*******###*##***#****♦*♦*#* 

A B14 FDB B15-B14 SIZE OF OVERLAY 

* DISPLAY DOS MENU SCREEN 



A 
A 
A 
A 

173D 

A 

1752 

173D 



LDD 
LDY 
LDU 
JSR 



#100 
#199 
#0 
DOMAP 



STARTING LINE NUMBER 
END OF RANGE 
SAY CLEAR SCREEN FIRST 
DISPLAY MENU MAP 



MENU1 SYSTEM POL CAT 



BEQ 
SUBA 
BEQ 
BCS 



MENU1 
#*31 
MENU2 
MENU1 



LESS THAN 1? 
IF 1 ENTERED 
IF YES 



(RET TO BASIC) 
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01360 

01370 

01380 

01390 

01400 

01410 

01420 

01430 

01440 

01450 

01460 

01470 

01480 

01490 

01500 

01510 

01520 

01530 

01540 

01550 

01560 

01570 

01580 

01590 

01600 

01610 

01620 

01630 

01640 

01650 

01660 

01670 

01680 

01690 

01700 

01710 

01720 

01730 

01740 

01750 

01760 

01770 

01780 

01790 

01800 

01810 

01820 

01830 

01840 

01850 

01860 

01870 

01880 

01890 

01900 

01910 

01920 

01930 



02490A 

02491 A 

02492A 

02493A 

02494A 

02495 

02496 

02497 

0249B 

02499 

02500 

02501 

02502 

02503 

02504 

02505 

02506 

02507 

02508 

02509 

02510 

02511 

02512 

025 13A 

02514 

025 ISA 

025 16A 

025 17A 

025 18A 

025 19A 

025 20 A 

02521 A 

02522 

02523 

025 24 A 

02525A 

02526A 

025 27 A 

0252BA 

02529 

02530A 

02531A 

02532A 

02533A 

02534A 

02535A 

02536A 

02537A 

025 38 A 

02539A 

025 40 A 

02541A 

02542A 

02543A 

02544A 

02545A 

02546A 

02547A 



1749 81 

174B 24 

174D 4C 

174E AD 

1752 7E 



1755 

1757 20 

1759 

175B 

175D 

175F 

1761 

1763 



1765 IF 
1767 83 
176A 24 
176C 86 
176E 39 



176F 
1772 
1774 
1778 
177B 
177D 
177F 
1783 
1787 
178B 
178F 
17V5 
1798 
179A 
179E 
17A1 
17 A3 
17A5 



06 
F0 



A 
173D 



9F 060C A 
0FF6 A 



CMPA 
BCC 
INCA 
JSR 
MENU2 JMP 



#6 
MENU1 



[GOD 
OBASIC 



NUMBER OF MENU SELECTIONS THAT HAVE BEEN WRITTEN 

IF NOT IN RANGE 

TO GET OVERLAY NUMBER OF SERVICE ROUTINE 

PAGE IT IN & GO TO IT 



00D3 

1755 

0C 

0000 

0000 

0000 

0000 

0000 

0000 



A 
A 
1765 
A 
A 
A 
A 
A 
A 



* BUFFERED PRINT I/O OVERLAY 
* 

* TO ACTIVATE: 

* LDU #SIZE (TOTAL MEMORY TO USE FOR THIS PURPOSE) 

* DOS DO.BUFPRT 
* 

» TO USE: 

* LDA CHARACTER TO PRINT 

* AGAIN CLRB (SAYS "I AM NOT SHUTTING DOWN") 

* JSR CPRNT3 

* BNE AGAIN IF BUFFER MAS FULL. TRY AGAIN (OR GO DISPLAY MSG) 
* 

* TO TERMINATE: 

* LDB #1 (ANY NON-ZERO SAYS SHUT DOWN) 

* JSR CPRNT3 
»*,♦*#»##♦♦*#*#*********♦♦»**********#**»♦*»*********♦******** 

B15 
BP 



FDB 
ESU 
BRA 
PRTBUF FDB 
BUFSZ FDB 
BUFCNT FDB 
SNDCHR FDB 
STRCHR FDB 
PRNTSV FDB 



B16-B15 

B15 

BP1 















SIZE OF OVERLAY 

(FOR USE IN RELATIVE ADDRESSING 

JUMP OVER LOCALS 

POINTER TO PRINT BUFFER 

SIZE OF PRINT BUFFER 

NUMBER OF CHRS IN BUFFER 

POINTER INTO BUFFER FOR CHR BEING SENT 

POINTER INTO BUFFER FOR CHR BEING STORED 

SAVE AREA FOR VECTOR TO ORIG PRNT ROUTINE 



* SEE IF ENOUGH ROOM PROVIDED 



30 A 
00D8 A 
03 176F 
18 A 



BP1 



U.D 

#BPSZ+5 
BP1A 
#ERR24 



PUT SPACE ALLOWED IN D 
AMOUNT NOT AVAILABLE FOR BUFFER 
IF ROOM FOR AT LEAST 1 BYTE BUFFER 
BUFFER NOT BIG ENOUGH 



C3 

ED 

31 

10AF 

31 

6F 

10BF 

AF 

AF 

33 

FE 
EF 
33 
FF 
EE 
34 
4F 



0001 

06 

89 00D6 

04 

AB 

A0 

0625 

89 00AB 

89 0055 

89 00A7 

061A 

0E 

89 0052 

061A 

62 

40 



TFR 

SUBD 

BCC 

LDA 

RTS 
* SET UP FOR BUFFERED PRINTING 

BP1A ADDD #1 (ACTUAL SIZE OF BUFFER) 
BUFSZ-BPiX SAVE BUFFER SZ 
BPSZ+3.X POINT AT BASE OF BUFFER 
PRTBUF-BPiX SAVE IT 

D,Y POINT BEYOND END OF BUFFER 
,Y+ SAY NO VALID OVERLAY FOLLOWS 
>OLYLOC THIS IS WHERE NEXT OVERLAY GOES 
BPTME+4-BP>X MODIFY LDX COMMAND 
BP0UT+3-BP.X (SO IT KNOWS WHERE LOCAL WS IS) 
BPTME-BP.X POINT AT TIME ROUTINE 
TIME, ON PLUG IT IN 

>PRNT GET ADDR OF ORIGINAL PRINT ROUTINE 
PRNTSV-BP.X SAVE IT 

BPOUT-BP.X POINT AT ENTRY FOR BUFFERED PRINT 
>PRNT 

2,S RET ADR TO USER 

U (BYPASS NORMAL RETURN THRU UN-DO) 
SAY DONE OK 



STD 

LEAY 

STY 

LEAY 

CLR 

STY 

STX 

STX 

LEAU 

DOS 

LDU 

STU 

LEAU 

STU 

LDU 

PSHS 

CLR A 
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01940 
01950 
01960 
01970 
01980 
01990 
02000 
02010 
02020 
02030 
02040 
02050 
02060 
02070 
02080 
02090 
02100 
02110 
02120 
02130 
02140 
02150 
02160 
02170 
02180 
02190 
02200 
02210 
02220 
02230 
02240 
02250 
02260 
02270 
02280 
02290 
02300 
02310 
02320 
02330 
02340 
02350 
02360 
02370 
02380 
02390 
02400 
02410 
02420 
02430 
02440 
02450 
02460 
02470 
02480 
02490 
02500 
02510 



025 48 A 

02549 

02550 

02551A 

02552A 

02553A 

02554A 

02555A 

02556A 

02557A 

02558A 

02559A 

02560A 

02561 A 

02562A 

02563A 

02564A 

02565A 

02566A 

02567A 

02568A 

02569A 

02570A 

02571 A 

02572A 

02573A 

02574A 

02575A 

02576A 

02577 

025 78A 

025 79A 

02580A 

02581A 

02582A 

02583A 

025B4A 

02585A 

025 86 A 

02587A 

025B8A 

02589 

02590 

02591 A 

02592A 

02593 

02594A 

02595A 

02596 

02597A 

02598A 

025 99A 

02600A 

02601 A 

02602 

02603A 

02604A 

02605A 



17A6 39 



RTS 



17A7 
17A9 
17AC 
17AD 
17AF 
17B1 
17B4 
17B6 
17B8 
17BA 
17BC 
17BE 
17C0 
17C2 
17C4 
17C7 
17CA 
17CC 
17CE 
17D0 
17D2 
17D4 
17D6 
17D9 
17DB 
17DD 



34 

BE 

5D 

26 

EC 

10A3 

25 

86 

35 

24 

EE 

EC 

33 

C3 

10 A3 

25 

ED 
A6 
A7 
EC 
C3 
ED 



35 



52 
0000 

30 
08 
06 
06 
01 
52 
F3 

04 

0C 

CB 

0001 

06 

02 

0C 

E4 

C4 

08 

0001 

08 

D2 



A 
A 

17DF 
A 
A 

17BC 
A 
A 

17AF 

A 
A 
A 
A 
A 
17CE 

A 
A 
A 
A 
A 
A 



» SEND A CHARACTER TO THE PRINTER VIA BUFFERED I/O 
BPOUT PSHS A.X.U 

#0 (THIS INSTR MODIFIED BY SETUP LOGIC) 
REQUEST TO SHUT DOWN? 

BP03 

BUFCNT-BP, X 

BUFSZ-BP.X ROOM FOR MORE? 



BPOl 



BPOIA 



LDX 

TSTB 

BNE 

LDD 

CMPD 

BCS 

LDA 

PULS 

BCC 

DSABLI 

LDU 

LDD 

LEAU 

ADDD 

CMPD 

BCS 

CLRD 

STD 

LDA 

STA 

LDD 

ADDD 

STD 

ENABLI 

PULS 



BPOIA 
#1 

A.X.U 
BPOl 



IF ROOM 

SET NON-Z COND 



IF NO ROOM 



PRTBUF-BP.X 

STRCHR-BP.X DISPLACEMENT IN BUFFER 

D.U POINT AT NEXT STORE POSITION 

#1 

BUFSZ-BP.X WRAP AROUND? 

BP02 IF NO 

STRCHR-BP. X 

iS (CHR TO BE PRINTED) 

,U 

BUFCNT-BP. X 

#1 

BUFCNT-BP. X 

A.X.U.PC 



17DF EC 
17E1 26 
17E3 33 
17E7 
17ED EC 
17EF FD 
17F2 EC 
17F4 FD 
17F7 35 
17F9 ED 
17FB 39 



0B A BP03 
FC 17DF 
89 00A7 A 



* WAIT FOR BUFFER TO EMPTY 



0E 

061A 

04 

0625 

40 

62 



LDD BUFCNT-BP. X EMPTY YET? 

BNE BP03 IF NO WAIT 

LEAU BPTME-BP.X POINT AT TIME ROUTINE 

DOS TIME, OFF UN PLUG IT 

LDD PRNTSV-BP.X GET ADDR OF ORIG DRIVER 

STD 5PRNT RESTORE IT 

LDD PRTBUF-BP.X WHERE NEXT OVERLAY SHOULD HAVE GONE 

STD >OLYLOC 

PULS U (RET ADDR) 

STD 2.S I'M SET TO RETURN VIA UN-DO) 

RTS 



17FC 7E 
17FF BE 

1802 EC 
1804 27 

1806 EE 
1808 EC 
180A A6 
180C AD 
180F 26 

1811 EC 
1813 C3 
1816 10A3 



0000 
0000 



08 A 
F6 17FC 



04 
0A 
CB 

98 0E 
EB 



A 
A 
A 
A 
17FC 



0A A 
0001 A 
06 A 



* TIME INTERVAL DRIVEN PRINT LOGIC 

BPTME JMP >0 (TO NEXT TIME ROUTINE) 

LDX *0 (INSTRUCTION MODIFIED BY ABOVE LOGIC) 

* IS THERE DATA IN THE BUFFER TO BE SENT TO PRINTER? 

LDD BUFCNT-BP. X 

BEG! BPTME IF NO. EXIT 

* TRY TO SEND IT (PRINTER MIGHT NOT BE READY) 

LDU PRTBUF-BP.X POINT AT BUFFER 

LDD SNDCHR-BP.X DISPLACEMENT WITHIN BUFFER 

LDA D.U GET CHR OUT OF BUFFER 

JSR : PRNTSV-BP.X 3 

BNE BPTME IF PRINTER WAS NOT READY 

* ADVANCE BUFFER POINTER 

LDD SNDCHR-BP.X 

ADDD #1 

CMPD BUFSZ-BP.X IS POINTER WRAPPING AROUND END OF BUFFER? 
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02520 02606A 
02530 02607A 
02540 02608A 
02550 02609 
02560 026 10A 
02570 02611 A 
02580 02612A 
02590 026 13A 
02600 02614 
02610 02615 
02620 02616 
02630 02617 
02640 026 ISA 
02650 02619 
02660 02620 
02670 02621A 
02680 02622A 
02690 02623A 
02700 02624A 
02710 02625 A 
02720 02626A 
02730 02627A 
02740 02628 
02750 02629 
02760 02630A 
02770 02631 A 
02780 02632A 
02790 02633A 
02800 02634A 
02B10 02635A 
02820 02636A 
02830 02637A 
02840 0263SA 
02850 02639A 
02860 02640A 
02870 02641 A 
02880 02642A 
02890 02643A 
02900 02644A 
02910 02645A 
02920 02646A 
02930 02647A 
02940 02648A 
02950 02649A 
02960 02650A 
02970 02651 A 
02980 02652A 
02990 02653A 
03000 02654 
03010 02655 
03020 02656A 
03030 02657A 
03040 0265 8 A 
03050 02659A 
03060 02660A 
03070 02661 A 
03080 02662A 
03090 02663A 



1819 25 
181B 
181D ED 

181F EC 
1821 83 
1824 ED 
1B26 20 



02 IBID 

0A A 

08 A 

0001 A 

08 A 

D4 17FC 



1828 



1B2A 20 

1B2C 

182E 

1830 

1832 

1834 

1836 



1838 
183A 
183D 
183F 
1841 
1842 
1845 
1B47 
184B 
184E 
1850 
1852 
1856 
185 A 
185E 
1862 
1868 
186B 
186D 
1871 
1874 
1876 
1878 
1B79 



BCS BPT1 IF NO 
CLRD 

BPT1 STD SNDCHR-BP.X SAVE POINTER TO NEXT CHR 

* ADJUST BUFFER COUNT 

LDD BUFCNT-BP. X 

SUBD #1 

STD BUFCNT-BP. X 

BRA BPTHE EXIT (ONLY SEND ONE CHR PER INTERUPT!) 
* 

* BUFFERED KEYBOARD INPUT OVERLAY 
*«»**»»****»♦*********»********** 



00 C5 

00D3 

1S28 

0C 

0000 

0000 



IF 

83 

24 

86 

39 

C3 

ED 

31 

10AF 

31 

6F 

10BF 

AF 

AF 

33 

FE 
EF 
33 
FF 
EE 
34 
4F 
39 



187A 34 
187C BE 
187F EC 
1881 26 
1883 35 
1885 EE 
1887 EC 
1889 33 



0000 
0000 
0000 



A 
A 
A 
1B38 
A 
A 
A 
A 
A 
A 



B16 

BPSZ 

BK 



FDB 
EQU 
EQU 
BRA 
KEYBUF FDB 
KEYSZ FDB 
KEYCNT FDB 
SNDKEY FDB 
STRKEY FDB 
KEYSV FDB 



30 A 
00 C A A 
03 1842 
1C A 



* SET 
BK1 



0001 

06 

89 00C8 

04 

AB 

A0 

0625 

89 0082 

89 0055 

89 007E 

061 C 

0E 

89 0052 

061C 

62 

40 



BK1A 



UP FOR 
TFR 
SUBD 
BCC 
LDA 
RTS 
ADDD 
STD 
LEAY 
STY 
LEAY 
CLR 
STY 
STX 
STX 
LEAU 
DOS 
LDU 
STU 
LEAU 
STU 
LDU 
PSHS 
CLRA 
RTS 



B17-B16 

B16-B15 (FOR PREVIOUS ROUTINE'S USE) 

B16 

BK1 JUMP OVER LOCALS 

ADDR OF KEYBOARD BUFFER 

SIZE OF KBD BUFFER 

NUMBER OF KEYSTROKES IN BUFFER 

DISPLACEMENT TO NEXT KEY TO GIVE USER 

DISPLACEMENT FOR STORING NEXT KEYSTROKE 

SAVE AREA FOR ADDR OF ORIGINAL KBD ROUTINE 

BUFFERED KBD 
U.D PUT SPACE ALLOWED IN D 
#BKSZ+5 AMOUNT NOT AVAILABLE FOR BUFFER 
BK1A IF ROOM FOR AT LEAST 1 BYTE BUFFER 
#ERR2B BUFFER NOT BIG ENOUGH 

#1 (ACTUAL SIZE OF BUFFER) 

KEYSZ-BK.X SAVE BUF SZ 

BKSZ+3.X POINT AT BASE OF BUFFER 

KEYBUF-BK, X 

D.Y 

,Y+ SAV NO VALID OVERLAY FOLLOWS 

>OLYLOC NEXT OVERLAY GOES HERE 

BKTME+4-BK.X MODIFY LDX INSTR 

BKGIVE+3-BK, X DITTO 



X 
PLUG 



IN TIME RTN 



54 

0000 

08 

02 

D4 

04 

0A 

CB 



A 
A 
A 
1885 
A 
A 
A 
A 



* POLL 
BKGIVE 



BKG1 



FOR A 

PSHS 

LDX 

LDD 

BNE 

PULS 

LDU 

LDD 

LEAU 



BKTME-BK 

TIME. ON 

>KEYIN 

KEYSV-BK.X 

BKGIVE-BK.X 

>KEYIN 

2.S 

U 



CHARACTER TO GIVE USER 
B.X.U 

#0 (THIS INSTRUCTION MODIFIED BY SETUP) 
KEYCNT-BK.X COUNT OF BUFFERED CHRS 

ONE TO SEND 

NONE. EXIT WITH A=ZERO 

ADDR OF BUFFER 

DISPLACEMENT 



BKG1 IF 
B.X.U.PC IF 
KEYBUF-BK, X 
SNDKEY-BK.X 



D.U 



POINT AT CHARACTER 
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03100 
03110 
03120 
03130 
03140 
03150 
03160 
03170 
03180 
03190 
03200 
03210 
03220 
03230 
03240 
03250 
03260 
03270 
03280 
03290 
03300 
03310 
03320 
03330 
03340 
03350 
03360 
03370 
03380 
03390 
03400 
03410 
03420 
03430 
03440 
03450 
03460 
03470 
03480 
03490 
03500 
03510 
03520 
03530 
03540 
03550 
03560 
03570 
03580 
03590 
03600 
03610 
03620 
03630 
03640 
03650 
03660 
03670 



02664 

02665A 

02666A 

02667A 

02668A 

02669A 

02670A 

02671 A 

02672A 

02673A 

02674A 

02675 A 

02676A 

02677 

02678 

02679A 

02680A 

02681 A 

02682A 

02683A 

02684 

02685A 

02686A 

02687A 

02688A 

02689A 

02690A 

02691 A 

02692A 

02693A 

02694A 

02695A 

02696A 

02697A 

02698A 

02699A 

02700A 

02701A 

02702A 

02703A 

02704A 

02705A 

02706A 

02707A 

02708A 

02709A 

027 10A 

02711 

02712 

02713 

02714 

02715 

02716 

02717 

02718 

02719 

02720A 

02721 A 



♦ ADJUST POINTER TO NEXT POSITION 



188B C3 
188E 10 A3 
1891 25 
1893 
1895 ED 
1897 A6 
1899 34 
189B EC 
189D 83 
18A0 ED 
18A2 6D 
18A4 35 



18A6 7E 
18A9 BE 
1BAC EC 
18AE 10A3 
1BB1 25 



18B3 
18B6 
18B8 
18BA 
18BC 
18C0 
18C2 
18C4 
18C6 
18C9 
18CA 
18CC 
18CE 
18D0 
18D2 
18D4 
18D7 
18DA 
18DC 
18DE 
18E0 
18E2 
18E5 
18E7 
18E9 
18EB 



8E 

A6 

88 

A7 

108E 

31 

26 

20 

AD 

4D 

27 

34 

EE 

EC 

33 

C3 

10 A3 

25 

ED 
EC 
C3 
ED 
35 
A7 
20 



0001 A 
06 A 
F2 1885 



0A 

C4 

02 

08 

0001 

08 

E4 

D6 



BKG2 



ADDD 

CMPD 

BCS 

CLRD 

STD 

LDA 

PSHS 

LDD 

SUBD 

STD 

TST 

PULS 



#1 

KEYSZ- 

BKG1 



BK 



X WRAP AROUND? 
IF NO 



SNDKEY-BK.X 

>U 

A 

KEYCNT-BK.X 

#1 

KEYCNT-BK.X 

>S 

D.X.U.PC 



0000 A 
0000 A 
08 A 
06 A 
13 18C6 



FF22 

84 

02 

84 

0020 

3F 

FC 

E0 

98 0E 

DA 

02 

04 

0C 

CB 

0001 

06 

02 

0C 

08 

0001 

08 

02 

C4 

BF 



A 
A 
A 
A 
A 
A 
18C0 
18A6 



* TIME INTERVAL KEYBOARD SCAN ROUTINE 
BKTME JMP >0 TO NEXT TIME ROUTINE 

LDX #0 (MODIFIED BY SETUP) 
BKTMEA LDD KEYCNT-BKiX 

CMPD KEYSZ-BK.X IS BUFFER FULL? 
BCS BKT1 IF NO 

* BUFFER IS FULL - GO BEEP 

LDX #U4BDR 



BKT0 



A BKT1 



18A6 
A 
A 
A 
A 
A 
A 

18DE 

A 
A 
A 
A 
A 
A 
18AC 



bkt: 



LDA 

EORA 

STA 

LDY 

LEAY 

BNE 

BRA 

JSR 

TSTA 

BEG 

PSHS 

LDU 

LDD 

LEAU 

ADDD 

CMPD 

BCS 

CLRD 

STD 

LDD 

ADDD 

STD 

PULS 

STA 

BRA 



.X 

#2 

iX 

#$20 

-l.Y 

BKT0 

BKTME 



COMPLIMENT SOUND BIT 



PULSE WIDTH 



EXIT 



CKEYSV-BK.X3 GO POLL KEYBOARD 



BKTME 

A 

KEYBUF- 

STRKEY- 

D.U 

#1 

KEYSZ- 

BKT2 



IF NO NEW KEYSTROKES, EXIT 

SAVE KEY 
-BK!X 
-BK.X DISPLACEMENT TO SAVE LOC 

POINT AT SAVE LOC 

POINT TO NEXT SAVE LOC 



BK. 



X WRAP AROUND? 
IF NO 



-BK. 
-BK. 



STRKEY- 

KEYCNT- 

#1 

KEYCNT-BK.X 

A 

,U 

BKTMEA GO 



CHECK FOR ANOTHER KEY DOWN 



18ED 
18EF 34 



01BF 
76 



»*»♦»**»*»**»*»*****«*****»******»»*****»****»*»»***»**#**»* 

* COPY FILE OVERLAY 

* GIVEN: B (BIT 0) = ZERO IF NO DISK SWAPPING. 1 IF SWAPPING 

* U-> SOURCE FILE DCB (UNOPENED) 

* Y-> DEST FILE DCB (UNOPENED) 

» USES MEMORY FROM "OLYLOC" TO "MAXMEM" 

* USES LAST LINE ON SCREEN FOR PROMPTS IF SWAPPING DISKETTES 
»♦*♦***♦*»»*»#*♦»*#»****»♦*#***♦***********♦***♦************ 
B17 FDB B18-B17 

PSHS D.X.Y.U 
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03680 


02722A 


18F1 


32 


7A 


A 






LEAS 


-6,S 




03690 


02723A 


1BF3 


20 


60 


1955 






BRA 


B17A 




03700 


02724 










* 


<S COUNT OF 


SECTORS IN MEMORY 


03710 


02725 










* 


1<S 


EOF SW 






03720 


02726 










* 


2>S= 


=NEXT INPUT PRN 




03730 


02727 










* 


4,S= 


=NEXT OUTPUT PRN 




03740 


02728 










* 


6.S= 


=PGS AVAIL 




03750 


02729 










* 


7»S= 


=SWAP SW 






03760 


02730 










* 


8,S= 


=BASE 






03770 


02731 










* 


10,S=DEST DCB ADDR 




037B0 


02732 










* 


12»S=SOURCE 


DCB ADDR 




03790 


02733 










* 


14iS=RET ADDR 




03800 


02734A 


18F5 




4C 


A 


B17M1 


FCC 


/LOAD SOURCE DISKETTE / 


03810 


02735 A 


1915 




4C 


A 


B17M2 


FCC 


/LOAD DESTINATION DISKETTE / 


03820 


02736A 


1935 




4C 


A 


B17M3 


FCC 


/LOAD S 


Y S T E M DISKETTE / 


03830 


02737 










* 










03840 


02738 










* 


SETUP STACK 






03850 


02739A 


1955 


C4 


01 


A 


B17A 


ANDB 


#1 


SET TO 1 OR 


03860 


02740A 


1957 


A6 


C8 21 


A 






LDA 


DCBDRV.U 




03870 


02741 A 


195A 


Al 


AB 21 


A 






CMPA 


DCBDRV.Y 


SAME DRIVE? 


03880 


02742A 


195D 


27 


01 


1960 






BEG 


B17B 


IF YES 


03890 


02743A 


195F 


5F 










CLRB 






03900 


02744A 


1960 


E7 


67 


A 


B17B 


STB 


7,S 




03910 


02745A 


1962 


4F 










CLRA 






03920 


02746A 


1963 


5F 










CLRB 






03930 


02747A 


1964 


ED 


E4 


A 






STD 


»S 




03940 


02748A 


1966 


ED 


62 


A 






STD 


2.S 


STARTING INPUT PRN 


03950 


02749A 


1968 


ED 


64 


A 






STD 


4,S 


STARTING OUTPUT PRN 


03960 


02750 A 


196A 


FC 


08DC 


A 






LDD 


>MAXMEM 




03970 


02751 A 


196D 


B3 


0625 


A 






SUED 


>OLYLOC 


HOW MUCH MEM TO WORK WITH 


03980 


0275 2A 


1970 


25 


03 


1975 






BCS 


B17B1 


IF NOT ENOUGH 


03990 


0275 3A 


1972 


4D 










TSTA 






04000 


02754A 


1973 


26 


51 


19C6 






BNE 


B17C 


IF AT LEAST 1 PAGE 


04010 


02755A 


1975 


86 


ID 


A 


B17B1 


LDA 


#ERR29 


NOT ENOUGH MEM 


04020 


02756 










# 










04030 


02757 










* 


COMMON EXIT 






04040 


02758A 


1977 


A7 


66 


A 


B17X 


STA 


6>S 




04050 


0275 9A 


1979 


6D 


67 


A 






TST 


7.S 




04060 


02760A 


197B 


27 


10 


198D 






BEG 


B17XIT 




04070 


02761 










# 


RECOVER SYSTEM DISKETTE 


04080 


02762A 


197D 


AE 


68 


A 






LDX 


B,S 




04090 


02763A 


197F 


30 


88 48 A 






LEAX 


B17M3-B17.X 


04100 


02764A 


1982 


8D 


0D 


1991 






BSR 


B17WTE 




04110 


02765A 


19B4 


CE 


0666 


A 






LDU 


#MSGDCB 




04120 


02766A 


1987 












DOS 


OPEN, INPUT TO RE-LOAD FAT TABLE 


04130 


02767A 


198D 


32 


66 


A 


B17XIT LEAS 


6,S 




04140 


02768A 


198F 


35 


F6 


A 






PULS 


D.X.Y.U, 


PC 


04150 


02769 










# 










04160 


02770 










* 


DISPLAY FLASHING MSG 


& WAIT FOR DISKETTE SWAP 


04170 


02771 A 


1991 


108E 


05E0 


A 


B17WTE LDY 


#*400+51 


2-32 (LAST LINE) 


04180 


02772A 


1995 


C6 


20 


A 






LDB 


#32 




04190 


02773A 


1997 


A6 


80 


A 


B17WT1 LDA 


.X + 




04200 


02774A 


1999 


A7 


A0 


A 






STA 


,Y+ 




04210 


02775A 


199B 


5A 










DECB 






04220 


02776A 


199C 


26 


F9 


1997 






BNE 


B17WT1 




04230 


02777A 


199E 


7F 


0621 


A 






CLR 


>CLOCK+l 




04240 


02778A 


19A1 








B17WT 


2 SYSTEM 


POLCAT 


WAIT FOR KEYSTROKE 


04250 


02779A 


19A5 


81 


0D 


A 






CMPA 


#*0D 
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04260 


02780A 


19A7 


27 


1C 




19C5 






BEQ 


B17WTX 






04270 


02781 A 


19A9 


BE 


05E0 


A 






LDX 


#*400+5 12-32 


04280 


02782A 


19AC 


B6 


0621 


A 






LDA 


>CLOCK+l 




04290 


02783A 


19AF 


B4 


20 




A 






ANDA 


#*20 






04300 


02784A 


19B1 


48 












LSLA 








04310 


027B5A 


19B2 


34 


02 




A 






PSHS 


A 






04320 


027B6A 


19B4 


C6 


20 




A 






LDB 


#32 






04330 


027B7A 


19B6 


A6 


84 




A 


B17WT3 


LDA 


,X 






04340 


02788A 


19B8 


84 


BF 




A 






ANDA 


#y.i0ium 


04350 


027B9A 


19BA 


AA 


E4 




A 






ORA 


,s 






04360 


02790A 


19BC 


A7 


80 




A 






STA 


,x+ 






04370 


02791 A 


19BE 


5A 












DECB 








04380 


02792A 


19BF 


26 


F5 




19B6 






BNE 


B17WT3 






04390 


02793A 


19C1 


35 


02 




A 






PULS 


A 






04400 


02794A 


19C3 


20 


DC 




19A1 






BRA 


B17WT2 






04410 


02795A 


19C5 


39 








B17WTX 


RTS 








04420 


02796 












* 












04430 


02797A 


19C6 


A7 


66 




A 


B17C 


STA 


6,S 




PAGES AVAILABLE 


04440 


02798 












* 












04450 


02799 












* 


LOOP 


TO COPY FILE 






04460 


02800A 


19C8 


EE 


6C 




A 


B17D 


LDU 


12. S 




SOURCE 


04470 


02801 A 


19CA 


FC 


062 


:5 


A 






LDD 


>OLYLOC 




044B0 


02802A 


19CD 


ED 


C8 


24 


A 






STD 


DCBBUF, 


U 




04490 


02803A 


19D0 


6D 


67 




A 






TST 


7.S 




SWAPPING? 


04500 


02804A 


19D2 


27 


06 




19DA 






BEQ 


B17D0 




IF NO 


04510 


02805 












* 


WAIT 


FOR SOURCE DISKETTE 


04520 


02806A 


19D4 


AE 


6B 




A 






LDX 


8,S 






04530 


02807A 


19D6 


30 


08 




A 






LEAX 


B17M1-B17.X 


04540 


02808A 


19D8 


8D 


B7 




1991 






BSR 


B17WTE 






04550 


02809A 


19DA 










B17D0 


DOS 


OPEN, INPUT 


04560 


028 10A 


19E0 


26 


95 




1977 






BNE 


B17X 




IF NOT FOUND 


04570 


02811 A 


19E2 


EC 


62 




A 






LDD 


2.S 






04580 


028 12A 


19E4 


ED 


CB 


25 


' A 






STD 


DCBPRN, 


U 


SET STARTING SECTOR NUMBER 


04590 


028 13A 


19E7 


26 


12 




19FB 






BNE 


B17E 




IF NOT FIRST TIME 


04600 


02814 












* 


FIRST TIME 


- SAVE DIRECTORY DATA IN OUTPUT DCB 


04610 


02B15A 


19E9 


10AE 


6A 




A 






LDY 


10. S 






04620 


028 16A 


19EC 


33 


4B 




A 






LEAU 


U.U 






04630 


028 17A 


19EE 


31 


2B 




A 






LEAY 


11. Y 




EXCEPT FOR NAME 


04640 


028 1BA 


19F0 


C6 


15 




A 






LDB 


#32-11 






04650 


028 19A 


19F2 


A6 


C0 




A 


B17D1 


LDA 


.U+ 






04660 


02820A 


19F4 


A7 


A0 




A 






STA 


,Y + 






04670 


02B21A 


19F6 


5A 












DECB 








04680 


02822A 


19F7 


26 


F9 




19F2 






BNE 


B17D1 






04690 


02823A 


19F9 


EE 


6C 




A 






LDU 


12, S 




SOURCE 


04700 


02824A 


19FB 


6F 


E4 




A 


B17E 


CLR 


,S 




SECTORS IN MEMORY 


04710 


02825 












* 












04720 


02826 












* 


LOAD 


LOOP 








04730 


02827A 


19FD 


BD 


0D9F 


A 


B17F 


JSR 


CSENT 




XLATE PRN INTO TRACK & SECTOR 


04740 


02828A 


1A00 


26 


IE 




1A20 






BNE 


B17F1 




IF OUT OF RANGE 


04750 


02829A 


1A02 


BD 


0CE7 


A 






JSR 


DSKRED 




DO PHYSICAL I/O 


04760 


02830A 


1A05 


26 


16 




1A1D 






BNE 


B17XX 




IF I/O ERR 


04770 


02831 A 


1A07 


EC 


C8 


2S 


' A 






LDD 


DCBPRN, 


-U 




04780 


02832A 


1A0A 


C3 


0001 


A 






ADDD 


#1 






04790 


02833A 


1A0D 


ED 


C8 


2S 


> A 






STD 


DCBPRN, 


iU 




04800 


02B34A 


1A10 


6C 


C8 


24 


■ A 






INC 


DCBBUF, 


u 




04810 


02B35A 


1A13 


6C 


E4 




A 






INC 


,S 




COUNT SECTORS READ 


04820 


02B36A 


1A15 


E6 


E4 




A 






LDB 


,S 






04830 


02837A 


1A17 


El 


66 




A 






CMPB 


6,5 




IS BUFFER FULL 



PAGE 050 0LY2 



.BA:0 



DOS - PAGING & OVERLAYS 



04840 02S38A 


1A19 26 


E2 




19FD 






BNE 


B17F 


IF NO 


04850 02839A 


1A1B 20 


05 




1A22 






BRA 


B17G 


GO WRITE IT 


04860 02840A 


1A1D 16 


FF57 


1977 


B17XX 


LBRA 


B17X 


THIS STMT USED AS AN UP-LINK 


04870 02841 










* 










04880 02842 










* 


INPUT AT END - SET EOF SW 


04890 02843A 


1A20 6C 


61 




A 


B17F1 


INC 


1,S 




04900 02844 










* 










04910 02845 










* 


CLOSE INPUT 






04920 02B46A 


1A22 EC 


CB 


29 


A 


B17G 


LDD 


DCBPRN.U 




04930 02S47A 


1A25 ED 


62 




A 






STD 


2.S 


SAVE FOR NEXT BATCH 


04940 02848A 


1A27 












DOS 


CLOSE, IT 




04950 02849A 


1A2D A6 


E4 




A 






LDA 


>S 


ANY SECTORS READ? 


04960 02850A 


1A2F 27 


EC 




1A1D 






BEGl 


B17XX 


IF NO. I'M DONE 


04970 02B51 










* 










04980 02852 










* 


OPEN 


OUTPUT 






04990 02853A 


1A31 6D 


67 




A 






TST 


7.S 


SWAPPING? 


05000 02854A 


1A33 27 


08 




1A3D 






BEQ 


B17H 


IF NO 


05010 02855A 


1A35 AE 


68 




A 






LDX 


8.S 




05020 02B56A 


1A37 30 


88 


28 A 






LEAX 


B17M2-B17.X 


05030 02857A 


1A3A 17 


FF54 


1991 






LBSR 


B17WTE 


WAIT FOR DESTINATION DISKETTE 


05040 02858A 


1A3D EE 


6A 




A 


B17H 


LDU 


10. S 


OUTPUT FILE DCB 


05050 02859A 


1A3F FC 


0625 


A 






LDD 


>OLYLOC 


START OF BUFFER 


05060 02860A 


1A42 ED 


C8 


24 A 






STD 


DCBBUF.U 




05070 02861 A 


1A45 












DOS 


OPEN.OUTPUT+FAST 


05080 02862A 


1A4B 27 


06 




1A53 






BEG 


B17H1 


IF FILE EXISTS 


05090 02863A 


1A4D Bl 


0C 




A 






CM PA 


#12 




05100 02864 A 


1A4F 27 


10 




1A61 






BEQ 


B17H2 


IF CREATED 


05110 02865A 


1A51 20 


CA 




1A1D 






BRA 


B17XX 


IF OTHER ERROR 


05120 02866 










* 










05130 02867 










* 


FILE 


EXISTS 






05140 02868A 


1A53 EC 


64 




A 


B17H1 


LDD 


4,S 




05150 02869A 


1A55 26 


12 




1A69 






BNE 


B17I 


IF NOT FIRST TIME, ITS OK 


05160 02870A 


1A57 












DOS 


CLOSE. IT 




05170 02871 A 


1A5D 86 


IE 




A 






LDA 


#ERR30 




05180 02872A 


1A5F 20 


BC 




1A1D 






BRA 


B17XX 




05190 02873 










# 










05200 02874 










» 


FILE 


CREATED 




05210 02875A 


1A61 EC 


64 




A 


B17H2 


LDD 


4.S 




05220 02876A 


1A63 27 


04 




1A69 






BEG 


B17I 


IF FIRST TIME, OK 


05230 02877A 


1A65 86 


IF 




A 






LDA 


#ERR31 


MISC ERR 


05240 02878A 


1A67 20 


B4 




1A1D 






BRA 


B17XX 




05250 02879 










# 










05260 02880 A 


1A69 ED 


C8 


29 A 


B17I 


STD 


DCBPRN.U 




05270 02881 










* 










05280 02882 










* 


WRITE LOOP 






05290 02883A 


1A6C BD 


0D9F 


A 


B17J 


JSR 


CSENT 


XLATE PRN INTO TRACK & SECTOR 


05300 02884A 


1A6F 26 


AC 




1A1D 






BNE 


B17XX 




05310 02885 A 


1A71 BD 


0CEA 


A 






JSR 


DSKWRT 


WRITE SECTOR 


05320 02886 A 


1A74 1026 


. FEFF 


1977 






LBNE 


B17X 




05330 02887A 


1A7B EC 


CB 


29 A 






LDD 


DCBPRN.U 




05340 02888A 


1A7B C3 


0001 


A 






ADDD 


#1 




05350 02889A 


1A7E ED 


C8 


29 A 






STD 


DCBPRN.U 




05360 02890 A 


1A81 6C 


08 


2' 


<> A 






INC 


DCBBUF.U 




05370 02891 A 


1A84 6 A 


E4 




A 






DEC 


.S 


COUNT DOWN SECTORS WRITTEN 


05380 02892A 


1A86 26 


E4 




1A6C 






BNE 


B17J 




05390 02893 










* 










05400 02894 










* 


CLOSE OUTPUT 




05410 02895A 


1A88 EC 


C8 


29 A 






LDD 


DCBPRN.U 





■▼■ 
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DOS 



PAGING & OVERLAYS 



05420 


02896A 


1A8B 


ED 


64 


A 




STD 


4.S SAVE FOR NEXT BATCH 




05430 


02897A 


1ABD 


83 


0001 


A 




SUBD 


#1 




05440 


02898A 


1A90 


ED 


C8 14 A 




STD 


DCBMRB.U 




05450 


02899A 


1A93 


AE 


6C 


A 




LDX 


12) S SOURCE DCB 




05460 


02900A 


1A95 


EC 


0E 


A 




LDD 


DCBNLS,X 




05470 


02901 A 


1A97 


ED 


4E 


A 




STD 


DCBNLS.U 




05480 


02902A 


1A99 


E7 


CB 16 A 




STB 


DCBMRB+2.U 




05490 


02903A 


1A9C 










DOS 


CLOSE. IT 




05500 


02904A 


1AA2 


4F 








CLRA 






05510 


02905A 


1AA3 


6D 


61 


A 




TST 


l.S AT EOF? 




05520 


02906A 


1AA5 


1026 


FF74 


1A1D 




LBNE 


B17XX I'M DONE 




05530 


02907A 


1AA9 


16 


FF1C 


19C8 




LBRA 


B17D GO COPY ANOTHER BATCH OF SECTORS 


05540 


02908 










* 








05550 


02909 










************************** 




05560 


02910 










* GET 


MULTIPLE USER INPUTS 




05570 


02911 










* GIVEN B=NUMBER OF INPUTS 




05580 


02912 










************************** 




05590 


029 13A 


1AAC 




0099 


A 


B18 


FDB 


B19-B18 




05600 


02914 






0012 


A 


INPTS 


EQU 


18 




05610 


0291 5A 


1AAE 


86 


01 


A 




LDA 


#1 




05620 


029 16A 


1AB0 


34 


06 


A 




PSHS 


D 




05630 


029 17A 


1AB2 


CE 


0400 


A 


B18B 


LDU 


#$400 




05640 


029 18A 


1AB5 


E6 


E4 


A 




LDB 


.S 




05650 


029 19A 


1AB7 


A6 


C0 


A 


B18C 


LDA 


.U+ 




05660 


02920A 


1AB9 


81 


5B 


A 




CMPA 


#$5B C 




05670 


02921 A 


1ABB 


27 


09 


1AC6 




BEG 


B18D 




05680 


02922A 


1ABD 


1183 


0600 


A 




CMPU 


#$600 




05690 


02923A 


1AC1 


25 


F4 


1AB7 




BCS 


B18C 




05700 


02924A 


1AC3 


CE 


0401 


A 




LDU 


#$401 




05710 


02925 A 


1AC6 


5A 






B18D 


DECB 






05720 


02926A 


1AC7 


26 


EE 


1AB7 




BNE 


B18C 




05730 


02927 










* INPUT A FIELD 




05740 


02928A 


1AC9 


7F 


0621 


A 




CLR 


CLOCK+1 




05750 


02929A 


1ACC 


30 


5F 


A 




LEAX 


-l.U 




05760 


02930A 


1ACE 


F6 


0621 


A 


B18E 


LDB 


CLOCK+1 




05770 


02931 A 


1AD1 


C4 


10 


A 




ANDB 


#16 




05780 


02932A 


1AD3 


27 


04 


1AD9 




BEG! 


B18E1 




05790 


02933A 


1AD5 


86 


5B 


A 




LDA 


#$5B 




05800 


02934A 


1AD7 


20 


02 


1ADB 




BRA 


B18E2 




05810 


02935A 


1AD9 


86 


IB 


A 


B18E1 


LDA 


#$1B 




05820 


02936A 


1ADB 


A7 


84 


A 


B18E2 


STA 


.X 




05830 


02937A 


1ADD 


34 


50 


A 




PSHS 


X.U 




05840 


02938A 


1ADF 










SYSTEM 


POL CAT 




05850 


02939A 


1AE3 


35 


50 


A 




PULS 


X.U 




05860 


02940A 


1AE5 


4D 








TSTA 






05870 


02941 A 


1AE6 


27 


E6 


1ACE 




BEG! 


B1BE 




05880 


02942A 


1AE8 


81 


03 


A 




CMPA 


#BREAK 




05890 


02943A 


IAEA 


27 


50 


1B3C 




BEG) 


B1BX 




05900 


02944A 


1AEC 


81 


0A 


A 




CMPA 


#DOWN 




05910 


02945A 


1AEE 


27 


1A 


1B0A 




BEG! 


B18F 




05920 


02946A 


1AF0 


81 


5E 


A 




CMPA 


#UP 




05930 


02947A 


1AF2 


27 


21 


1B15 




BEG! 


B18G 




05940 


02948A 


1AF4 


81 


0D 


A 




CMPA 


#ENTER 




05950 


02949A 


1AF6 


27 


44 


1B3C 




BEG! 


B18X 




05960 


02950 A 


1AF8 


81 


08 


A 




CMPA 


#LEFT 




05970 


02951 A 


1AFA 


27 


34 


1B30 




BEG! 


B18I 




05980 


02952A 


1AFC 


81 


20 


A 




CMPA 


#*20 




05990 


02953A 


1AFE 


25 


CE 


1ACE 




BCS 


B18E 





PAGE 052 0LY2 



.SA:0 



DOS 



PAGING & OVERLAYS 



06000 
06010 
06020 
06030 
06040 
06050 
06060 
06070 
060S0 
06090 
06100 
06110 
06120 
06130 
06140 
06150 
06160 
06170 
061B0 
06190 
06200 
06210 
06220 
06230 
06240 
06250 
06260 
06270 
06280 
06290 
06300 
06310 
06320 
06330 
06340 
06350 
06360 
06370 
06380 
06390 
06400 
06410 
06420 
06430 
06440 
06450 
06460 
06470 
06480 
06490 
06500 
06510 
06520 
06530 
06540 
06550 
06560 
06570 



02954A 

0295 5 A 

02956A 

02957A 

02958A 

02959 

02960A 

02961 A 

02962A 

02963A 

02964A 

02965A 

02966 

02967A 

02968A 

02969A 

02970A 

02971 A 

02972A 

02973A 

02974A 

02975 

02976A 

02977A 

02978A 

02979A 

02980A 

02981 A 

02982 

02983A 

02984A 

02985A 

029B6A 

02987A 

02988A 

02989 

02990A 

02991 A 

02992A 

02993A 

02994A 

02995 

02996 

02997 

02998 

02999A 

03000 

03001 A 

03002A 

03003A 

03004A 

03005A 

03006A 

03007A 

03008A 

03009A 

030 10A 

0301 1A 



1B00 81 
1B02 25 
1B04 81 
1B06 25 
1B08 20 

1B0A A6 
1B0C Al 
1B0E 24 
1B10 4C 
1B11 A7 
1B13 20 

1B15 A6 
1B17 81 
1B19 27 
1B1B 4A 
1B1C A7 
1B1E 86 
1B20 A7 
1B22 20 

1B24 8 A 
1B26 A7 
1B28 A6 
1B2A 81 
1B2C 27 
1B2E 20 

1B30 A6 

1B32 84 

1B34 81 

1B36 26 

1B38 A6 

1B3A 20 

1B3C IF 

1B3E 32 

1B40 86 

1B42 A7 

1B44 39 



1B45 

1B47 BE 

1B4A 86 

1B4C A7 

1B4E A6 

1B50 A7 

1B52 CC 

1B55 ED 

1B57 108E 

1B5B 10AF 

1B5E A6 

1B60 81 



5B 
20 
60 
1C 
C4 

E4 
61 
0E 

E4 
09 

E4 
01 
03 

E4 
5B- 
84 
8E 

40 
CO 
C4 
5D 
DC 
9E 

C2 
BF 
IB 
96 
C0 
F4 

89 
62 
5B 
84 



A 
1B24 

A 
1B24 
1ACE 

A 

A 

1B1E 

A 
1B1E 

A 

A 

1B1E 



0089 

0013 

C006 

02 

80 

C4 

80 

1103 

80 

06C8 

01 

41 

48 



* DOWN 
B18F 



* UP 
B18G 



A 

A 

A 

1AB2 



A 
A 
A 
A 
1B0A 
1ACE 

A 
A 
A 

1ACE 
A 

1B30 

A 
A 
A 
A 



B18G1 



* TEXT 
B18H 



* BACK 
B18I 



CM PA 

BCS 

CMPA 

BCS 

BRA 

LDA 

CMPA 

BCC 

INCA 

STA 

BRA 

LDA 

CMPA 

BEG! 

DEC A 

STA 

LDA 

STA 

BRA 

CHR 

ORA 

STA 

LDA 

CMPA 

BEQ 

BRA 

ARROW 

LDA 

ANDA 

CMPA 

BNE 

LDA 

BRA 



#$5B 
B1BH 
#$60 
B18H 
B18E 

<S 

l.S 

B18G1 

,S 
B18G1 

.S 
#1 
B1BG1 

,S 

#*5B 
,X 
B18B 

#*40 

.u 

#*5D 
B18F 
B18E 

»-U 

#*BF 

#*1B 

B18E 

,U+ 

B18I 



* BREAK OR ENTER 



TFR 

LEAS 

LDA 

STA 

RTS 



A.B 
2.S 
#*5B 
>X 



IF AT END ALREADY 



* SCAN FOR SELECTED DIRECTORY ENTRY 



B19 FDB 
SCNDIR EQU 
LDX 
LDA 
STA 
LDA 
STA 
LDD 
STD 
LDY 
STY 
LDA 
B19A CMPA 



B20-B19 

19 

4C006 

#2 

,X + 

,U 

.X + 

#$1103 

>X + 

#SYSBUF 

ltX 

l.U 

#72 



PARAMETER AREA 
READ 



DRIVE 



TRACK 
LEAVE 



SECTOR 
-> SECTOR 



STARTING OCCURANCE 

ANY MORE ON THIS DRIVE? 



■▼■ 
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DOS 
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06580 


030 12A 


1862 


24 


65 


1BC9 






BCC 


B19N0 




06590 


030 13A 


1B64 


80 


08 


A 


B19B 


SUBA 


#8 




06600 


030 14A 


1B66 


25 


04 


1B6C 






BCS 


B19C 


IF IN THIS SECTOR 


06610 


03015A 


1B68 


6C 


84 


A 






INC 


,X 




06620 


030 16A 


1B6A 


20 


F8 


1B64 






BRA 


B19B 




06630 


030 17A 


1B6C 


8B 


08 


A 


B19C 


ADDA 


#8 




06640 


030 1BA 


1B6E 


27 


07 


1B77 






BEQ 


B19D 




06650 


030 19A 


1B70 


C6 


20 


A 






LDB 


#32 




06660 


03020A 


1B72 


3D 










MUL 




DISPLACEMENT IN THIS 


06670 


03021 A 


1B73 


31 


AB 


A 






LEAY 


D.Y 


OFFSET TO 1ST ENT TO 


06680 


03022A 


1B75 


20 


0C 


1B83 






BRA 


B19D1 




06690 


03023A 


1B77 


34 


70 


A 


B19D 


PSHS 


X.Y.U 




06700 


03024A 


1B79 


AD 


9F C004 A 






JSR 


C *C004 3 




06710 


03025A 


1B7D 


35 


70 


A 






PULS 


X.Y.U 




06720 


03026A 


1B7F 


A6 


03 


A 






LDA 


3.X 


RESULT 


06730 


03027A 


1B81 


26 


46 


1BC9 






BNE 


B19N0 


IF I/O ERR 


06740 


0302B 










* 


COMPARE AGAINST ARGUMENT 


06750 


03029 










* 


REGISTERS: 


iX->SECTOR 


NBR 


06760 


03030 










* 






Y->ENTRY i 


IN BUFFER 


06770 


03031 










* 






U->SEARCH 


ARGUMENT 


06780 


03032A 


1B83 


34 


60 


A 


B19D1 


PSHS 


Y.U 




06790 


03033A 


1B85 


C6 


0B 


A 






LDB 


#11 


BYTES TO COMPARE 


06800 


03034A 


1B87 


33 


42 


A 






LEAU 


2.U 


TO START OF ARGUMENT 


06810 


03035A 


1B89 


A6 


A4 


A 






LDA 


,Y 




06820 


03036A 


1B8B 


27 


0C 


1B99 






BEG! 


B19E1 


IF EMPTY ENTRY 


06830 


03037A 


1B8D 


2B 


0A 


1B99 






BMI 


B19E1 


IF END OF DIRECTORY 


06840 


03038A 


1B8F 


A6 


C0 


A 


B19E 


LDA 


.U+ 




06850 


03039A 


1B91 


81 


2A 


A 






CMPA 


#'* 


WILDCARD? 


06860 


03040A 


1B93 


27 


IF 


1BB4 






BEQ 


B19F 




06870 


03041 A 


1B95 


Al 


A0 


A 






CMPA 


.Y+ 




06880 


03042A 


1B97 


27 


ID 


1BB6 






BEQ 


B19G 




06890 


03043 










# 


NO MATCH 






06900 


03044A 


1B99 


35 


60 


A 


B19E1 


PULS 


Y.U 




06910 


03045A 


1B9B 


6C 


41 


A 






INC 


l.U 




06920 


03046A 


1B9D 


A6 


41 


A 






LDA 


l.U 




06930 


03047A 


1B9F 


81 


48 


A 






CMPA 


#72 


ANY MORE? 


06940 


03048A 


1BA1 


24 


26 


1BC9 






BCC 


B19N0 




06950 


03049A 


1BA3 


31 


AB 20 A 






LEAY 


32 1 Y 


POINT AT NEXT ENTRY 


06960 


03050A 


1BA6 


108C 


07 C8 


A 






CMPY 


#SYSBUF+256 


06970 


03051 A 


1BAA 


25 


D7 


1B83 






BCS 


B19D1 




06980 


03052 










* 


READ 


NEXT 


SECTOR 




06990 


03053A 


1BAC 


108E 


06C8 


A 






LDY 


#SYSBUF 




07000 


0305 4 A 


1BB0 


6C 


84 


A 






INC 


,X 




07010 


03055A 


1BB2 


20 


C3 


1B77 






BRA 


B19D 




07020 


03056A 


1BB4 


A6 


A0 


A 


B19F 


LDA 


.Y+ 


BYPASS SOURCE CHR 


07030 


03057A 


1BB6 


5A 






B19G 


DECS 






07040 


03058A 


1BB7 


26 


D6 


1B8F 






BNE 


B19E 




07050 


03059 










* 


MATCH FOUND 




07060 


03060A 


1BB9 


35 


60 


A 






PULS 


Y,U 




0707B- 


03061 A 


1BBB 


6C 


41 


A 






INC 


liU 


SEARCH CONTINUES WITI 


07080 


03062A 


1BBD 


33 


4D 


A 






LEAU 


2+11. U 




07090 


03063A 


1BBF 


C6 


20 


A 






LDB 


#32 




07100 


03064A 


1BC1 


A6 


A0 


A 


B19H 


LDA 


.Y+ 




07110 


03065A 


1BC3 


A7 


C0 


A 






STA 


,U+ 




07120 


03066A 


1BC5 


5A 










DECB 






07130 


03067A 


1BC6 


26 


F9 


1BC1 






BNE 


B19H 




07140 


03068A 


1BC8 


39 










RTS 






07150 


03069A 


1BC9 


86 


FF 


A 


B19N0 


LDA 


#*FF 





SCAN 



PAGE 054 0LY2 



.SA:0 



DOS 



PAGING & OVERLAYS 



07160 
07170 
07180 
07190 
07200 
07210 
07220 
07230 
07240 
07250 
07260 
07270 
07280 
07290 
07300 
07310 
07320 
07330 
07340 
TOTAL 
TOTAL 



03070A 1BCB A7 

03071 A 1BCD 39 

03072 

03073A 1BCE 

03074A 1BCF 

03075 

03076 

03077 A 1BD0 

03078 

03079 

03080 

03081 

03082 

03083 

03084 

03085 

03086 

03087 

03088 

ERRORS 00000 

WARNINGS 00000 



41 



0001 
0001 



0001 
1BD0 
00 C5 
0718 
1246 
0EA4 
20EB 
10A2 
10A5 
0BB9 



00000 
00000 



A B20 
A B21 



A LASTPG 
A B22 
A BKSZ 
A P6MSZ 
A TOTSZ 
A START 
A END 
A ENTRY 
A LOWUSR 
A FIXIT 



STA 
RTS 

RMB 

RMB 

OPT 
RMB 
EQU 
ESU 
EQU 
EQU 
ESU 
ESU 
EQU 
EQU 
ESU 
TTL 
END 



SAY NO MORE 



END OF OVERLAYS 



1,U 



L 

1 

LASTPG 

B17-B16 

OVRLAY-ORGIN-1 

LASTP6-0RGIN-1 

DOS START OF DISK FILE 

LASTPG+DOS-ORGIN END OF DISK FILE 

OVRLAY INITIAL ENTRY POINT INTO PROGRAM 

OVRLAY+3 LOWEST POINT WHERE USER PGM CAN LOAD 

*1E00-LASTPG+ORGIN POINT THAT BASIC CLOBBERS 

DOS - CROSS REFERENCE 



Index 

& 35 

$ 35 

@ 35 

[ 43 

] 43 

/AO (Absolute origin) 25 

/IM (Assemble into memory) 25 

/IM Switch 27 

/LP (Assembler listing) 25 

/MO (Manual origin) 25, 29 

/NL (No listing) 25 

/NO (No object code in memory) 25 

/NS (No symbol table) 25 

/SR (Single record) 25 

/SR "switch" 7 

/SS (Short screen listing) 25 

/WE (Wait on assembly errors) 25 

/WS (With symbols) 25 

6809 41 

6809 Mnemonics, Reference 109 

6809 Registers 41 

— A — 

Absolute Origin Assembly 28 

Addressing-Mode Characters 10 

Addressing Modes 42 

Direct Addressing 45 

Extended Addressing 43 

Immediate Addressing 43 

Indexed Addressing 43 

Indirect Addressing 43 

Inherent Addressing 43 

Relative Addressing 44 

Alphanumeric Character Codes 106 

Arithmetic Operators 36 

Addition ( + ) 36 

Subtraction (-) 36 

Multiplication (*) 36 

Division (.DIV.) 36 

Modulus (.MOD.) 36 

Positive ( + ) 36 

Negative ( - ) 36 

ASCII Codes 105 

Alphanumeric Character 106 

Color 105 

Graphic Character 105 

Video Control 105 

ASCII Mode 18 

Assembler Commands 25 

Assembler Commands and Switches, 

Reference 75 



Assembler Pseudo Ops, Reference 85 

Assembling 25 

Assembling for DOS 30 

Assembling for Stand-Alone ZBUG 30 

Assembly Display Listing 26 

Assembly Listing, Changing 49 

COND 49 

ENDC 49 

INCLUDE 50 

OPT 49 

PAGE 49 

TITLE 49 

— B — 

Backups 3 

BASIC Command 23 

Breakpoints 32 

Buffers 61 

Byte Mode 17 

— C — 

Changing Memory 18 

CHROUT 58 

Clock Display 16 

Closing a Disk File 62 

Color Codes 105 

Command 42 

Complex Operations 37 

COND 49 

Controlling Assembly Origin 47 

END 47 

ORG 47 

Copy Command 22 

Cstartline, range, increment 22 

Copy Files 15 

Cstartline, range, increment 22 

— D — 

Data Control Block 61 

Data Control Block (DCB), Reference 91 

Defining Symbols 47 

EQU 48 

SET 48 

Delete Command 22 

Drange 22 

Direct Access 65 

Direct Addressing 45 

Directory 15 

Disk Allocation Map 15 

Disk Assembly 30 

Assembling for DOS 30 

Assembling Stand-Alone ZBUG 30 

Display Modes 31 

Half-Symbolic Mode 32 



Numeric Mode 32 

Symbolic Mode 32 

DOS Error Codes, Reference 101 

DOS Routines 10, 61 

DOS Routines, Reference 95 

Orange 22 

_E — 

Edit Command 21 

Bine 21 

Editor Commands, Reference 71 

EDTASM 5 

EDTASMOV 5 

Bine 21 

END 47 

ENDC 49 

EQU 48 

Error Codes, DOS Reference 101 

Error Messages, EDTASM Reference 81 

Examination Modes 17 

ASCII Mode 18 

Byte Mode 17 

Mnemonic Mode 18 

Word Mode 18 

Examining Memory 17 

Examining Registers and Flags 33 

Executing a Program from ZBUG 32 

Extended Addressing 43 

Indirect Addressing 43 

Extended Indirect Addressing 43 

— F — 

FCB 48 

FCC 48 

FDB 48 

Flags, Examining 33 

FLDFLG 27 

Formatting 3 

— G — 

Graphic Character Codes 105 

— H — 

Half-Symbolic Mode 32 

Hrange 21 

Immediate Addressing 43 

INCLUDE 50 

Indexed Addressing 43 

Indirect Addressing 44 

Indexed Indirect Addressing 44 

Indirect Addressing 43 

Inherent Addressing 43 



Input Mode 35 

Insert Command 22 

\startline, increment 22 

Inserting Data 48 

FCB 48 

FCC 48 

FDB 48 

RMB 48 

\startline, increment 22 

— L — 

Label 42 

LD filespec 23 

LDA filespec 23 

Left bracket ([) 6 

LINCNT 27 

Load Command 23 

LD filespec 23 

LDA filespec 23 

Logical Operators 37 

Shift (<) 37 

LogicalAND (.AND.) 37 

InclusiveOR (.OR.) 37 

ExclusiveOR (.XOR.) 37 

Complement (.NOT.) 37 

— M — 

Macro Call 53 

Macro, Calling 51 

Macro, Defining 51 

Macro, Dummy Values 53 

Macro, Format 52 

Macro Definition 52 

Macro, Passing Values 52 

Macros 51 

Manual Origin Assembly 29 

Memory Map 1 03 

Mnemonic Mode 18 

Mnemonics 10 

Mnemonics, 6809 Reference 109 

— N — 

Nstartline, increment 22 

Numbering System Modes 35 

Input Mode 35 

Output Mode 35 

Numeric Mode 32 

— O — 

Opcode 9 

Opening a Disk File 62 

Operands 36 

Operations 36 



Operands 36 

Operators 36 

Arithmetic 36 

Logical 37 

Relational 37 

Complex Operations 37 

Operators 10, 36 

Arithmetic 36 

Logical 37 

Relational 37 

OPT 49 

ORG 47 

Origination Offset Assembly 28 

Output Mode 35 

— P — 

PAGE 49 

PAGLEN 27 

PAGWID 27 

POLCAT '... 57 

Prange 21 

Print Command 21 

Prange 21 

Printer Commands 21 

Hrange 21 

Trange 21 

Processor 9 

Registers 9 

Opcode 9 

Program Editor Commands 21 

Copy Command 22 

Cstartline, range, 

increment 22 

Delete Command 22 

Drange : 22 

Edit Command 21 

Eline 21 

Insert Command 22 

\startline, increment 22 

Load Command 23 

LD filespec 23 

LDA filespec 23 

Print Command 21 

Prange 21 

Printer Commands 21 

Hrange 21 

Trange 21 

Renumber Command 22 

Nstartline, increment 22 

Replace Command 22 

Rstartline, increment 22 

Write Command 23 

WD filespec 23 

ZBUG Command 22 



Pseudo Ops 10, 47 

Pseudo Ops, Reference 85 

— R — 

Read/Write Option 66 

Reading a Disk File 65 

Read to a File Sample Program 67 

Registers 9 

6809 41 

Registers, Examining 33 

Relational Operators 37 

Equal to (.EQU.) 37 

Not Equal to (.NEQ.) 37 

Relative Addressing 44 

Renumber Command 22 

Nstartline, increment 22 

Replace Command 22 

Rstartline, increment 22 

Right bracket (]) 6 

RMB 48 

ROM Routines 10, 57 

CHROUT 58 

POLCAT 57 

ROM Routines, Reference 89 

Routines 

DOS 10 

ROM 10 

Rstartline, increment 22 

— S — 

Sample Program 5, 1 1 

Sample Programs 1 25 

Saving Memory from ZBUG 34 

SET 48 

Sequential Access 65 

Single Stepping 33 

Switches 

/AO 25 

/IM 25 

/LP 25,27 

/MO 25 

/NL 25, 27 

/NO 25 

/NS 25, 27 

/SR 7, 25 

/SS 25 

/WE 25, 27 

/WS 25 

Symbolic Mode 32 

Symbols 10 

Examine Memory 32 



— T — 

TITLE 49 

Trange 21 

Transferring Memory Blocks 33 

— V — 

Video Control Codes 105 

— W — 

WD filespec 23 

Word Mode 18 



Write Command 23 

WD filespec 23 

Write to a File Sample Program 67 

Writing a Disk File 65 

— Z — 

ZBUG Calculator 35 

ZBUG Command 22 

ZBUG Commands 17, 31 

ZBUG Commands Reference 77 
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